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4 An Introduction To Microcomputer Languages by Don Libes 


A concise survey of innovative programming languages that have led to the current 
state of the field, and some indications of where we are going. 


The 54 4 Introduction To Ada by Mark Zeiger 
The first article in a two-part tutorial on Ada, the language developed under the 


Pr ob lems auspices of the Department of Defense. 
And Some 
ESS Si aia So 


Successes : 
6 UCSD Adaptable Pascal Versions Il.0 and IV.O by John W. Moore, 
In The Baker G Wilkame and John ® Vidolieli 


Trans porting The authors, from the Chemistry Department of Eastern Michigan University, 
describe their experiences in using UCSD Adaptable Pascal to develop a 
Of Lar g e microcomputer system for text processing, computer graphics, instrument 


interfacing, and computerized test generation. 
Languages . : : 
» 
To Micro- 


computer s 88 Stoic Versus Forth by Richard H. Mossip 


A discussion of the features of the two languages which affect their usefulness in 
various applications. 


90 The Stoic Language by Richard H. Mossip 


The author explains why Stoic, an outgrowth of Forth, was selected as the 
development language for the control program of a new scientific instrument. 


8 Saving Program State Under UCSD Pascal by Jon Bondy 


A description of procedures that aid debugging and recovery after 
a program crash. 
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Morrow DMA Controllers 
Supercharge Disk Systems. 


What EDN said: “The (Disk Jockey™ DMA floppy-disk controller) 
offers two to three times the performance of comparable 
controllers”’ And that’s for either 544"' or 8'' floppy-disk drives 
operating from an S-100 (IEEE-696) bus. 


How we do it? With channel drive that’s almost identical to IBM 
370® channel controllers. The DJ/DMA uses 24-bit address- 
ing. The host writes commands into memory. The DJ/DMA picks 
up commands from the host processor via memory on the 
system bus, and transfers data during DMA cycles. Channel com- 
mands may be located anywhere in the 24-bit address range. 
Upon completion of the command, the controller returns status. 
It may also generate an interrupt. Chained commands allow 
the controller to return status, or to execute a number of com- 
mands in succession. The controller board also contains logic 
which allows other IEEE-696 temporary bus masters to contend 
for memory cycles. That’s the Morrow “channel 
concept’ Fast and Simple. 


On-board Z-80A* By managing both memory and disk 
transfers, the resident Z-80A allows reading or writing 
to almost any floppy-disk media. 8'' or 5%"'. Single 
or double density. Single or double-sided. And up to 
eight drives per controller board (no more than 
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DMA controller concept makes Winchesters lightning fast. Which 
Winchester? Industry standards — Seagate's 5%'' ST506/512, 
or 8"' drives from Shugart/Quantum. 


DMA Transfer (Burst Mode). The Morrow Direct Memory Access 
Hard Disk Controller (HDC/DMA) picks up commands from 
the host processor via memory on the system bus. Commands 
are accessed and data is transferred during DMA cycles. 
Commands and data transfers may occur anywhere in the 24-bit 
address range. 


Interrupts. The controller can generate an interrupt at the end of 
each command and/or at the end of each command chain. 


Imbedded uP. An on-board 8X300 supervises data transfers 
between the Winchester drive(s) and main memory. Microcode 
in this 7 MHz bipolar microprocessor implements the com- 
mand structure of the controller. 

Expansion. The HDC/DMA addresses one to four 
drives, one to 16 drive heads and an unlimited 
number of tracks. These capabilities allow system 

upgrades to additional platters and tracks as 
Winchester technology advances. 

$-100 sub-systems. The HDC/DMA is compati- 


four of each type). : < ble with all IEEE-696 systems and most 
ype) : . ey ; my existing S-100 systems—providing the bus 
System compatible. Disk Jockey DMA AF RRS Eee Pra NS clock is 2.5 MHz or faster. 


sub-systems are compatible with all 
IEEE-696, S-100 systems (such as 
the Morrow Decision I™). And, with 
most S-100 like systems. 

Faster Winchesters. Hard disks 
put micros in the mini category. 
Now, Morrow’s channel driven 


Morrow HDC/DMA 
Direct Memory 
Access 
Hard Disk 
Controller 
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LAAAARARARAAAS 
TEL ATTESTED 


IBM/370 is a registered trademark of IBM Corp. 
Disk Jockey and Decision | are trademarks of Morrow Designs. 


Fast answers. Give us a Call, or write us for 
more details on our new DMA controller 
boards and disk sub-systems. 

LOOK TO MORROW FOR ANSWERS. 


*Z-80A is a trademark of Zilog, Inc. 


Disk Jockey 


DMA Floppy Disk 
Controller 


™ 


5221 Central Avenue, Richmond, CA 94804 
(415) 524-2101, TWX: 910-382-8132, (Power Key-Richmond) 
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THE MULTI-USER FRIENDLY 256K MEMORY BOARD WITH 


i Compromise in Performance 


Oo 
Oo 


Main-frame type memory mapping 
for optimal BANK SWITCHED 
applications or 24-BIT extended 
addressing 

Operates in any S-100 System 
IEEE /696+ or non IEEE 

DMA operation fully supportedt 
8/16 data transfer protocolt 


O) Up to 6 MHZ with no wait states; Up 


O 


to 10 MHZ with automatic wait state 
assertion 


QO Parity error detectiont 


Double parity in 16-BIT operation 


No Compromise in Features 


All memory /refresh cycle timing is 
generated ON BOARD providing easy 
CPU independent characterization 


0) Ideal for use with the new generation 


of operating systems: CP/M-80'"* 
CP/M-86,™* MP/M-11"* MP/M-86™* 
OASIS/""* UNIX™*** 
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No Compromise in Quality 
O) Multilayer board and bus signal 
filtering for noise-free operation 
O] Thorough 100% final test and burn-in 


No Compromise in Versatility 
© Manual provides source listing and 
complete installation guide for 
MP/M-lI™* BANK SWITCHED 
multi-user applications 

For the CP/M-2.2™* user: 

Manual includes implementations of 
‘Virtual Disk’ for solid state disk /file 
applications 


O 


No Compromise in Customer 
Support 

1) Comprehensive technical manual 
1) User hot-line 


tin accordance with IEEE-696 standard 
Registered trademarks of: *Digital Research, 
“*Phase |. and ***Bell Labs. 
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[] Full one year parts and labor warranty 


ORDER NOW 


y 
a 
refundable with order. 
a 


BAS Bi Gn ES Ses ee ee fe 
(213) 887-5737 


If you wish, send a check or 
money order for $1,379 (in 
California add 6% sales tax 
where applicable). 


Manual available at $25.00 each 


MACROTECH International Corp., 
22133 Cohasset St., Canoga Park, 
California 91303 


MACROTECH International Corp., 


22133 Cohasset St., Canoga Park, 
California 91303 


SYSTEMASTER’ 


The Next Logical Step 


Teletek FDC-I, The First Step 
A CPU, floppy disc controller 
and I/O all on one board. 
Until SYSTEMASTER® the , 
most powerful IEEE-S-100 board “ 
on the market. 


Teletek SBC-I, The Second Step 7 

A board designed for use in high perfor- 
mance, multiprocessing systems. SBC-I 
combines its own CPU, serial and parallel 
ports, 128K of segmented memory and FIFO. 


SYSTEMASTER®, The Next Logical Step 
Teletek’s newest product — a breakthrough in S-100 


SYSTEMASTER® Features: 
* Floppy controller: controls mini and/or 
maxi drives; variable independently- 
adjustable pre-write compensation. 
P * CPU: 4MHz Z80A 

* Two RS-232C ports. 
* Two full parallel ports. 
* 64K bank-selectable memory 
variable from 32K to 60K. 
Remaining memory is fixed at top of 
64K address space. 
DMA: allows transparent data transfer to 
floppy disks and other devices without 


board design. SYSTEMASTER® is a complete system. CPU wait states. 
No other boards are required. It doesn’t even require * Relocatable EPROM/ROM/PROM: 2K, 4K or 8K 
a bus! with deselect capability. 

* Real-time clock. 
But, when used with an S-100 bus, SYSTEMASTER® ¢ Operating systems available: Digital Research 
has even more capabilities. You can readily expand or Turbodos. 
to multi-user or multi-processor systems using * Parallel ports may be connected to Teletek’s PSC 
SYSTEMASTER® as the master board. board for RS-422 capability. 
© Teletek 1982 9767F Business Park Drive Sacramento, CA 95827 (916) 36191777 
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UCSD Adaptable Pascal Versions 11.0 and IV.O by John W. Moore, Robert G. Williams 
and John R. Vidolich. 


The authors, from the Chemistry Department of Eastern Michigan University, describe their 
experiences in using UCSD Adaptable Pascal to develop a microcomputer system for text processing, 
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Saving Program State Under UCSD Pascal by Jon Bondy 


A description of procedures that aid manipulation of list data 


Stoic Versus Forth by Richard H. Mossip 


A discussion of the features of the two languages which affect their usefulness in various 
applications 


The Stoic Language by Richard H. Mossip 


The author explains why Stoic, an outgrowth of Forth, was selected as the development language for the 
control program of a new scientific instrument 
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-board the bus- 


INDUSTRIAL QUALITY BOARDS FOR THE 
IEEE-696/S-100 BUS 


naneauaaat 
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CPU GROUP 


CPU 68000 CPU 68000M 

@ MC68000 processor @ MC68451 MMU. 

© 8 MHz operation © Segmented memory 
16-Mbyte addressing management 
Single-user © Multi-user 


MEMORY GROUP 


CMEM DMEM 
@ 32/64K ROM @ 8K/16K/32K CMOS @ 256K dynamic RAM 
© 16-bit data paths © 6 MHz for 8/16-bit © 24-bit addressing 


© 24-bit addressing ® Non-volatile with © 230 ns access 
Li battery 


1/0 GROUP 


CLK-24C $104 
© Real time clock © 4-port serial I/O 
@ LSI CMOS chip © 256 bytes of FIFO 
® Li battery backup @ DMA transfers 
@ 24-bit memory addr. 


ANALOG GROUP 


AOM-12 (D-to-A) AIM-12 (A-to-D) 
© 4channels @ 12-bit +%L.S.B. @ 325S.E. channels 
© 20 mA outputs e 0-10V, +5V, +10V @ 25 p-sec conversion 
® 12-bit performance jumper select outputs © 12-bit resolution 
© Accepts AOM-12 


men 


Sales representatives in a 17a \% os OEM and Dealer pricing 
WW A ea 


most metropolitan areas. is available. 


system reliability/system integrity 
2530 San Pablo Avenue e Berkeley e CA 94702 e (415) 549-3854 « 172029 SPX 
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Sol Libes 
Chris Terry 
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Anthony Skjellum 
contributing editors 
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Fred Gohlke 
David Gewirtz 
Randy Reitz assisting editors 
Ann Ovodow 
Editorial Coordinator 
Editorial Secretary 


Susan Gendzwil art director 
Diana Negri Rudio 
assistant art director 


William L. Baumann 
operations manager 

Patricia Kennelly...........comptroller 
Ethel Fisher bookkeeping 
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Laura Gibbons retail sales 
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shipping & receiving 


MICROSYSTEMS (ISSN _ #0199-7955) is 
published bimonthly by Ahl Computing, Inc., 
a subsidiary of Ziff-Davis Publishing Compa- 
ny, One Park Avenue, New York, N.Y. 
10016. David Ahl, President; Elizabeth B. 
Staples, Vice-President; Selwyn Taubman, 
Treasurer; Bertram A. Abrams, Secretary. 


Second Class postage paid at New York, NY 
10016 and at additional mailing offices. 
POSTMASTER: Send address changes to 
MICROSYSTEMS, PO Box 1987, Morris- 
town, NJ 07960. Subscriptions are $24.97 for 
12 issues. Canadian prices are $5.00 per year 
additional; other foreign $8.00 per year addi- 
tional (U.S. currency only). 


Copyright © 1982 by MICROSYSTEMS. 
CP/M is a registered trademark of Digital 
Research. 


Editorial correspondence is welcomed and 
should be sent to: MICROSYSTEMS, One 
Park Avenue, New York, NY 10016. Phone: 
(212)725-6856. 


For information on commercial advertising, 
write to: MICROSYSTEMS Advertising 
Dep’t., One Park Avenue, New York, NY 
10016, or call Jeff Weiner at (212)725-7957. 


m@ BlG—over 61K! That’s over 6K more 
user space than conventional CP/M 2.2™! 


' [mi FAST—DMA floppy and hard disks 
with cacne buffering and high speed CPUs. 


@ MULTI-USER—enhanced and fully com- 
patible implementation of MP/M 86™ runs 
both 8 and 16 bit programs at the same time! 
8 bit programs you can run include: WordStar® 
_ dBASE II)" Whitesmith’s C, Microsoft™ BASIC, 

CB80" and PL/I-80™ 


M@ Upgrade effortlessly from 8 to 16 bit software (for 
example, from CBASIC™ to CBASIC 86™) without leaving 

your programs or data behind. You get complete file com- 
patibility between 8 and 16 bit CP/M. Other systems make 
you choose between 8 and 16 bits. MP/M 8-16 systems have 
two CPUs—one 8 bit, one 16 bit. You get it all. Now. And 
tomorrow. 


M@ 16 bit programs available now include: CBASIC 86, Super- 
Calc 86™ Microsoft FORTRAN 86 (ANSII 77), CIS COBOL 86™ 


@ Even the hardware is upgradable. Our boards are compatible 
with the IEEE 696 bus (and we’ve got 20 bus slots!). Our state-of- 
the-art systems can keep pace with the state-of-the-art. 


@ All CompuPro boards in our MP/M 8-16 systems are covered by 
a factory backed two year phone replacement warranty. 


G&G Engineering is an authorized CompuPro systems center. 


Think GEEESainceninc® 


1922 Republic Avenue, San Leandro, California 94577 (415) 895-0798 
351 California Street, Suite 515, San Francisco, California 94104 


*MP/M 8-16 is a proprietary implementation of Digital Research's MP/M 86 operating system, configured for CompuPro by 
G&G Engineering. 
CompuPro is a trademark of Godbout Electronics; MP/M 86, CP/M, CP/M 2.2, CBASIC, CBASIC 86, CB-80, PL/I-80, and CIS 
COBOL 86 are trademarks of Digital Research. Microsoft is a trademark of Microsoft Corporation. WordStar is a registered 
trademark of MicroPro International Corporation. dBASE || is a trademark of Ashton-Tate. SuperCalc 86 is a trademark of Sorcim. 
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Editor’s Page 


Changes at 
Microsystems 
MICROSYSTEMS is growing 
at a strong, consistent rate and 
we feel that it is improving in 
content as well as appearance. 
The reader survey which we 
conducted in the early part of 
the year attests to this view. I 
will report, in detail, in the 
next issue on what our readers 
told us. In the meantime I will 
fill you in on the changes at 
MICROSYSTEMS. 

In the early part of this year 
MICROSYSTEMS became 
part of the Ziff-Davis family of 
magazines. Z-D is one of the 
largest magazine publishing 
houses in the world (e.g., Popu- 
lar Electronics, Popular Pho- 
tography, Stereo Review, Psy- 
chology Today, etc., etc.). MI- 
CROSYSTEMS is now part of 
Z-D’s rapidly expanding group 
of information-processing publi- 
cations—a group that includes 
Data Sources, Data Decision, 
Computer Intelligence, Small 
Business Computers, Creative 
Computing, and Sync. 

Z-D is investing a consider- 
able sum in MICROSYS- 
TEMS. The goal is to make it 
“the” leading magazine for the 
sophisticated microcomputer 
user. Big investments are being 
made in promotion to subscrib- 
ers and advertisers, as well as 
enhancing content and appear- 
ance. The print run for the 
magazine has been increased 
(the July/August issue was 
22,000 and this issue’s run 
should be significantly larger). 

Z-D has also enlarged the 
MICROSYSTEMS staff. Most 
notably Z-D has hired a techni- 
cal editor for MICROSYS- 
TEMS. He is Chris Terry. I 
am sure you will all recognize 
Chris’s name. He has written 
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many of the articles in past is- 
sues of the magazine . . . most 
notably the very popular series 
titled “The CP/M Connec- 
tion,” an in-depth tutorial for 
programmers interfacing to 
CP/M. Chris has also written 
numerous software and hard- 
ware reviews and a popular ar- 
ticle on sorting techniques. He 
was previously employed by the 
Systems Research & Develop- 
ment Division of Dun & Brad- 
street, where he prepared docu- 
mentation for systems and ap- 
plication software. Chris is also 
the co-author of a book on mi- 
cros recently published by Van 
Nostrand. 

You may have also noticed 
that, starting with the July/ 
August issue, we introduced a 
“reader service” card, some- 
thing readers and advertisers 
have been pleading for. This is 
a very expensive undertaking 
and frankly, until the Z-D ac- 
quisition, we were not in the fi- 
nancial position to undertake it. 
You will also notice an im- 
provement in the appearance 
and printed quality of the mag- 
azine. This is because magazine 
production has been moved to 
the Z-D production department 
at One Park Avenue, New 
York City and we have 
switched to a new printer. 

If our circulation and adver- 
tising increase as expected we 
will be increasing the size of 
the magazine and publishing it 
more frequently. This will 
mean a significant increase in 
available editorial content 
space, allowing us to broaden 
the scope of MICROSYS- 
TEMS, though the main em- 
phasis will continue to be on 
support for CP/M users. We 
will also cover any and all 
hardware systems that run 


CP/M, which will include S- 
100/IEEE-696 systems, single- 
board systems (e.g. Osborne) 
and limited bus systems (e.g. 
IBM-PC). We will also be giv- 
ing some coverage to other 
operating systems such as MS- 
DOS, SB-86, MP/M, Turbo- 
dos, Oasis, Xenix and other 
Unix-like operating systems. 

The technical level of the 
magazine will continue to be 
aimed, as in the past, at the so- 
phisticated user of microcom- 
puters. It will not cater to the 
beginner or the game player. 
After all, there are several oth- 
er magazines currently serving 
these users. 

Another result of the Z-D 
acquisition is that we have con- 
siderably improved the rates we 
pay authors. Incidentally, we 
are looking for more articles, so 
write or call us if you would 
like to receive a copy of our au- 
thor’s guide. In addition to the 
areas listed above, we are look- 
ing for articles on networking, 
hardware and software inter- 
facing, communications, multi- 
processing and multiuser sys- 
tems, software development tu- 
torials, graphics and “hints and 
kinks,” etc., etc. 

Happy reading. 


Come of Age 
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delivery. ted. 


complete with 


GREAT IDEAS... 
Down to Earth 
Products 


SIERRA DATA SCIENCES 


6 Slot Motherboard 
Complete power supply 
Utilize regular or Thinline drive § 


SDS-MULTIPLEXER/DISPLAY 
Three RS232C 1 to 2 Switches 

Two Seven Segment Status Display 
(Can be used as a line monitor for data 
communications link) 

(route RS232 to one of two devices) 


NEC-FLOPPY DISK DRIVE 
Double Sided 

Single Density/Double Density 

Up to 2.4 Megabyte 

SPECIAL PRICING 


SDS-HARD DISK INTERFACE 
Micropolis 1220 Series 
Interface Adapter 


TA, 


SDS-SINGLE BOARD COMPUTERS 
Z80A CPU 64K Bank Switch Memory 

2 RS232 Channels 4 Timers IEEE 696 Buss 
Interface 

4 Parallel ports 

NEC 765 FDC with PLL to all Shugart 
compatable drives (SDS-Master only) 
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SIERRA DATA SCIENCES Fresno CA | Marketing Division, 21162 Lorain Ave., Fairview Park, Ohio 44126 (216) 331-8500 Telex. 980133 WDMR 


S-100/IEEE-696 


Standard News 
Mark Garetz (General Man- 


ager of the CompuPro Division 
of Godbout Electronics) took 
over the Chairman’s position of 
the IEEE S-100 Standard 
Committee (P696) in March. 
Under his direction the changes 
to the standard were finalized 
and the standard was sent out 
to committee members to be 
voted on in May and was ap- 
proved. The standard was then 
submitted to the IEEE Micro- 
computer Standards Committee 
(MSC) in June and was ap- 
proved. The standard now must 
be submitted to the IEEE 
Computer Standards Board and 
then to the IEEE Standards 
Board for final approval. It is 
expected that the standard will 
be formally adopted by year 
end. 

We are making every at- 
tempt to get permission from 
the IEEE to reprint the 
adopted standard in MICRO- 
SYSTEMS, as soon as it is 
adopted. If we are not able to 
do this we will be sure to let 
you know how and where you 
can obtain a copy. 


National 
Introduces 16-Bit 
Microprocessor 
National Semiconductor has 
started shipping samples of its 
16-bit microprocessor chip set 
called the NS16016. The Com- 
puPro Division of Godbout 
Electronics is already working 
on an NS16016 S-100/IEEE- 
696 CPU card which they ex- 
pect to announce officially be- 
fore year-end. Digital Research 
has also disclosed that it will 
develop and market a multi- 
tasking version of CP/M for 
the NS16016. 

The NS16016 is actually a 


32-bit micro with 16-bit I/O. It 
executes 8080 instruction 
codes. Its arithmetic logic unit, 
internal data paths and regis- 
ters are 32 bits wide. Further, 
it supports demand-paged vir- 
tual memory. Because the 
16016 can run 8080 code, the 
device can run thousands of im- 
mediately available programs. 

Early next year National ex- 
pects to introduce a true 32-bit 
version of the microprocessor to 
be called the ““NS16032”’. It 
will have 16-bit I/O, and Digi- 
tal Research is considering de- 
velopment of an operating sys- 
tem for this device also. Later 
next year National expects to 
introduce the 32032, which will 
have 32-bit I/O, and a CMOS 
version of the 16032 in 1984. 
Samples of their memory man- 
agement, interrupt controller 
and floating-point math chips 
are expected before the end of 
1982. A terminal management 
processor, local area network 
controller and hard disk con- 
troller are scheduled for 1983. 

National has already signed 
Fairchild to a second-source 
agreement which includes the 
development of several periph- 
eral ICs. Synertek is also ex- 
pected to second-source the IC. 

National feels that the 
16016 and 16032 present a 
clear migration path from 8-bit 
to 16-bit to 32-bit microproces- 
sors that is not currently avail- 
able with either the Z8000, 
68000, 8086 or Intel iAPX432. 
Hence, even though National is 
late in introducing the device, 
it expects strong acceptance. 


Digital Research News 
John Rowley has been ap- 
pointed the Chief Operating 
Officer of Digital Research. He 
has undertaken a reorganiza- 


Main/Frames 
Main/Frames 


from 


¢ 30 Models of Enclosures 

¢ Assembled and tested 

* Quasi-Coax Motherboards 
¢ Power Supply 

¢ Card cage and guides 


¢ Fan, line, cord, fuse, power 
& reset switches 


8" Floppy Main/Frame 


Phase/80 Desk + Mainframe 


Write or call for our 
brochure which includes our 
application note: 
“Building Computers — 

A Recipe”’ 


INTEGRAND 


8620 Roosevelt Ave. ¢ Visalia, CA 93291 
209/733-9288 


We accept BankAmericard/Visa 
and MasterCharge 
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we YOUR SEARCH IS OVER! 


“ 
eS THE “EVERYTHING BOARD” 


Q 
EVERYTHING YOU WANT IN A CP/M’COMPUTER 
ON A SINGLE BOARD 


MANFACTURING RIGHTS AVAILABLE! 
($50,000 VALUE ONLY $390) 


NOW AVARABLE TO EVERYONE IN KIT FORMI 
(LOW AS $175) 


THE VP COMPUTER, DEVELOPED a ore is a ges Wor WIDE BY OEM: APPLICATIONS SUCH AS PROCESS CONTROL, 
yeahs AUTOMATION, One BDA AC itis OES ING, DATA Rdbdiernon OALATY CONTHO DEVELOP SYSTEMS, 
AND MA\ Y OXGRS.. cus. ONE e BOARD | Cost x17 Contam DEK ‘CONTROLLER, 64K iS BAM, ROM, VIDED CLOCKS, AND SERIAL 
PARLE, VO. NO COMPRO! QUALITY, IN USE DAILY, 

ONTROLLING ALL PRO! DUCTION. f DISTRI SBUTION 1S is BY CAPACITANCE BUS BARS-THE BEST METHOD-BUT 
BECAUSE OF COST, NOT USED BY OTHER, SYSTEMS. PO OMEARE! THIS IS THE BEST! 
YOU CAN NOW PURCHASE THE VP BOARD mn KIT FORM OR PURCHASE LaTwone AND MANUFACTURING RIGHTS AND DETAILS. 
FULL AND PARTIALLY ASSEMBLED UNITS ARE AVAMABLE. 


FEATURES: (EVERYTHING IS sacomaaainisd DIP SWITCHES!) 


64K RAM (32 RAM SOCKETS!) 
16K EPROM OR STATIC RAM 


DISK CONTROLLER 1K EPROM MONITOR 


DRIVES 1 Rls COMMANDS! 
DRIVES! + TERMINAL 


13 
CONNECTORS FOR FAST, 
EASY ADDITIONS! 


ay nS S New TA TANDOM & 


Z80 CPU -NO WAIT STATES 
FULLY BUFFERED-XTAL 


ATES. VIDEO CONTROLLER 
LL INTERRUPT MODES-POWER ON RESET! 


THE BEST! INTEL 8275 WITH 
SPECIAL PROGRAMMABLE ATTRIBUTES 

18 TO 80 HORIZ CHAR. VARIABLE FORMATS 
EPROM & STATIC RAM CHAR. GENERATORS! 

REVERSE VIDEO, BLINK, 6 INTENSITIES ETC! 
LIGHT PEN INPUT 60hz CLOG! 

COMPOSITE OR TTL OUTPUT. 


SERIAL 1/0 


3 SEPARATE PORTS 
RS232-SYNC-BISYNC-HDLC 
ALL INDEPENDENT BAUD RATES TO 76.8K 


vortagt REGBPators 


4 Ree AT Ore ALLOW USE OF 


CLOCK /CALENDAR 


DMA CONTROLLER PROGRAMMABLE & READABLE 
4 INDEPENDENT CHANNELS 
AUTO LOAD-16000 CHAR/BURST 


FIXED OR ROTATING PRIORITY 


108 PARALLEL 1/0 cms 


PROGRAMMABLE & BUFFER! 
INTERFACE TO KY8DS, PRINTERS, 
HARD DISK, ANYTHING! 


LEAP YEAR DAY OF WEEK REGISTER 
BATTERY BACKUP 


CP/M 2.2* 
FULLY IMPLEMENTED 
TERMINAL EMULATION 
ERROR CORRECTION 
SPECIAL FUNCTIONS 


9 TIMERS / 4 COUNTERS 


PRIORITY INTERRUPT GENERATORS 
NONE USED BY DISK OR SYSTEM 
ALL PROGRAMMABLE 
INTERRUPT OR POLLABLE 


FREE DETAILS AND PRICING ~ DATA WORLD - 8390 NEW HAMPSHIRE ~ ST. LOUIS MO. 63123 


(pala caer gic (| 


i LOW POWER DD DIV fens 
RUNS COOL! SOFTW.  CORTMAT TABLE FULL SOURCE CODE 
aRysTate CONTROLLED DATA SEPARATOR AUTO BOOT & RESTART 


12/24 HOUR TENTHS/SECONDS TO YEARS, 


* TRADEMARK 
DIGITAL RESEARCH 


PIADAD IIIA IIASA IIA IAA AAI AIA IASI ASIII IA AISAD AAI AACK 
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News & Views 
continued . 


tion that “will allow Digital 
Research to more effectively 
serve its customers and manage 
its growth.” Gary Kildall will 
continue as President, remain- 
ing in charge of all functions 
and supervising all strategic 
and operational management. 
Rowley will report to him and 
oversee each functional depart- 
ment and division. 

DR has disclosed that it has 
signed agreements with Hitachi 
to develop CP/M and several 
languages for a 68000 system 
that Hitachi will produce, and 
an agreement with Intel to de- 
velop a multiuser, multitasking 
operating system for the 
iAPX286. DR has also elimi- 
nated runtime library royalties 
for all DR languages. 

DR will also open regional 
offices throughout the U.S. and 
Europe; these will include a 
demonstration center and full 
sales and support services. The 
first office will be opened in 
Boston with four other offices 
expected before yearend. 

DR has also signed an agree- 
ment with Graphic Software 
Systems, Wilsonville OR to 
jointly develop graphics prod- 
ucts that are consistent with 
the emerging ANSI standards 
for computer graphics. Initial 
products will include a library 
of graphic primitives. 


Dual Processors 
CompuPro started it with their 


8085/8088 dual processor card 
introduced almost two years 
ago. Now there are almost a 
dozen companies with dual pro- 
cessor systems: Zenith (8085/ 
8088), Cromemco (Z80/ 
68000), Radio Shack (Z80/ 
68000), Vector Graphic (Z80/ 
8088), North Star (Z80/8088) 
and Dynabyte (Z80/8086) to 


mention just a few. 
SS 


SORTING 


with CP/M‘? 
The answer is CO-SORT. 


CO-SORT is the best general purpose sort/merge routine in the business. Here’s why! 


*CO-SORT runs with your program—no stopping and restarting and no 
transfer files to build and move. 


¢CO-SORT allows smaller data sets to be sorted entirely in the available 
memory — perfect for interactive programs where sorting must 
be transparent. 


¢CO-SORT is fast and efficient — uses the best algorithm for all sorting 
requirements and eliminates the need to stop and restart the user program. 


*CO-SORT is accessible from all languages, allows fixed or variable length 
records, all data types, any number of keys in any direction, dynamic choice 
of source and destination, and more. 


¢CO-SORT is the choice of professional programmers who want rapid program 
development with the fastest possible execution time throughout. 


CO-SORT from Information Resources makes sorting as sophisticated as it has to be and as 
simple as it should be. Priced at $200 for an original user license, the package includes a 
powerful driver program for demonstration and general utility sorting. AND, clear in-depth 
documentation is provided. 


For information or to order, write INFORMATION RESOURCES 
Box W 
Manhasset, N.Y. 11030 


CPIM is a trademark of Digital Research 
CO-SORT is a trademark of information Resources. 
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Single-User CP/M 


Compatible Disk 
Operating Systems 


DOS name | V2.2__ 


CP/M-80 


1/OS_ 


__| KOS 5.2 


| M/OS-80 _| C/Dos 


In the July/August 1981 issue 


Vendor search 


Digital Re- 


Info Soft 


Kontron 


of Microsystems (Volume 2, 
Number 4) I presented a tabu- 


Price 


$150 


$225 


Depends on 
configuration 


Mostek 
+ 


Cromemco 


$250 w/ 
PROMS 
¢199 less" 


lar summary of 16-bit operat- 


ing systems available for 8080 Released | 1979 


August, 


August, 1977 


May, 1981 


May, 1981 


and Z80 based microcomputer 
systems. The response from 

readers to that article was very 
substantial. Hence, it occurred 
to me to do the same thing for 


Romable 


Minimum 
Hardware 
Required 


no 


20K RAM, 
console & 
disk drive 


8-bit operating systems that are Code used | 


8080 


no 


24K RAM, 
console & 
disk drive 


8080 


no 
64K RAM, 
16K 
video-refresh 
RAM, video 
controller & 
disk drive 


Z-80 


no 


32K RAM, 
MDXFLP 
disk controller 
& serial or 
parallel port 


32K RAM, 
console & 
disk drive 


Z-30 


32K RAM, 
console & 
disk drive 


Z-80 Z-80 


compatible with CP/M. After 
all, how many of you know that 
there are five other currently 
available disk/operating sys- 
tems that are compatible with 
CP/M? 


VENDORS 
Digital Research Inc. 

Box 579, Pacific Grove CA 93950 
408-649-3896 


Network 
Support 


Processor 
allocation 
manage- 
ment 


Goodbye BASIC, PL/1, COBOL—hello PASCAL! Now, to make 
this most advanced language available to more micro users, 
we've cut our price—to an amazing $29.95! This astonishing price 
includes the complete JRT Pascal system on diskette and the 
comprehensive new user manual. Not a subset, it's a complete 
Pascal for CP/M.* Check the features: 
Separate compilation of external procedures * Auto-loading * 
14 digit FLOATING POINT arithmetic * True dynamic storage « 
Verbal error messages * Fast one-step compiler: no link needed 
* Graphing procedures « Statistic procedures * Activity analyzer 
prints program use histogram * Advanced assembler interface 


THIS IS THE SAME SYSTEM WE SOLD FOR $295! 

So how can we make this offer?—why the unbelievable deal? 
Very simply, we think all software is overpriced. We want to build 
volume with the booming CP/M market, and our overhead is low, 
SO we're passing the savings on to you. 


AND AT NO RISK! 
When you receive JRT Pascal, look it over, check it out. 

We invite you to compare it with other systems costing ten times 

as much. If you're not completely satisfied, return the system—with 

the sealed diskette unopened—within 30 days and your money will 

be refunded in full! THAT'S RIGHT - COMPLETE SATISFACTION 

GUARANTEED OR YOUR MONEY BACK! 


Asynchronous 
protocols 


—system vs. 
user mode 
multitasking; 
dual tasks 
tmultiuser- 
structured & 


er 
Lmultiprocess- 
ing via com- 
munications 
net 


task-schedul- 


yes 


tmultitasking; 
single fore- 
ground task, 
up to 10 
background 


gram fur- 
nished 


NOW—A COMPLETE CP/M PASCAL—FOR ONLY 


29.95 


tasks 
no sysgen pro- 


yes no 


Lsystem vs. 
user mode 
tmultitasking 
available 
-spsgen source 
not furnished 


none 
sysgen 
source not 
furnished 


In addition, if you want to copy the diskette or manual—so long 
as it’s not for resale—it's 0.k. with us. Pass it on to your friends! 
BUT ACT TODAY—DON'T DELAY ENJOYING PASCAL’S 
ADVANTAGES—AT $29.95, THERE’S NO REASON TO WAIT! 


SCHSHSHSHSSHSSSHSSHSSSSSHSSHSHSHSHSSSHHSHSHEHSSHSHSSESESSESESESELESE 
To: JRT SYSTEMS 
1891—23rd Avenue 
San Francisco, CA 94122 


phone 415/566-4240 

O.K. You've sold me. Send me JRT Pascal by return mail. | understand 
that if I'm not completely satisfied, | can return it within 30 days—with 
the sealed diskette unopened—for a full refund. 

| need CO 8” SSSD diskette. 0 5%” diskette for 1 Northstar, () Osborne, 


Name 


City 
0 Check 


Card # 


0 C.O.D. 


LU Mastercharge 
(CA residents add sales tax. Add $6 for shipping outside North America.) 


0 Apple-CP/M, 0 Heath, 0 Superbrain. 


Address 


State Zip 


O VISA 


Exp. 


Signature 


SCHOSHSHSSEOSHOSHSOSHSESSSHOSSECOSSHSESHESEESEEE 


“CP/M is a Digital Reserach TM. 
SCOHHHHOHSHOHHHHHOHHHHSHOHHOHSOH HHH OHO OH OOOOOE OOO EOOEE®S 
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A 56K CP/M system is required. 


_ The LASTING MEMORY™ 
uses byte-wide electrically 
eraseable PROM’s (E2PROM’s) to bring ease of — 
firmware development and non-volatile memory to the $100 
bus. An E?PROM programmer on this 32K (8 bit only) board gen- 
om erate#all required timing and voltages. Single bytes can be erased and 


written using normal memory write instructions. E2PROM’s can be operated and 
programmed in the same socket. All sockets also accomodate static RAM’s and 2716 type 
_EPROM’s. Prices for the LASTING MEMORY™ start at $299 without memore IC's. Call or write for pricing on. 
additional configurations. ee : ee : aig : 
ie general memory needs, remember THELAST MEMORY™ 64 K static. RAM/ EPROM . board for 8 bit 
$100 systems. Prices start at less than $100. eo 


Static memory systems inc. J) IMC; VISA accopien 


15 So. Van Buren Ave. Suite 209 we All-prices net, FOB Freeport, IL 

Freeport, Illinois 61032. (815) 235-8713. OEM discounts available 

9 A.M. to 4 P.M. Monday - Friday: - Dealer inquiries invited. 
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DOS name 


Vendor 


Peripheral 
Manage- 
ment; 
—Device 
indepen- 
dent 


-DMA 
—Spooling 


—Mix stor- 
age devices| 


Memory 
Manage- 
ment 
—Single 
contiguous 
allocation 


—Overlays 


—Chaining 


CP/M-80 
V2.2 


Digital Re- 


search 


News & Views continued . 


T 
KOS 5.2 


M/OS-80 


Kontron 


Mostek 


Cromemco | CDL 


yes 
yes 


up to 15 drives, 
65Mb each 
with table-driv- 
fen handler 


uses interrupts 
& I/O buffer- 


yes 
with program 
loader 


yes 
binding during 


link time 


BASIC/Z... 


the ultimate CP/M compiler! 


For free brochure 


yes 
—uses inter- 
rupts 
—drivers dy- 
namically al- 


yes 


yes 


yes 
binding during 


-I/O multibuf- 


fering 


no 


link time 


segmentation 


Hany 


of drives 
table driven! 


—other ing located [ruses interrupts 


yes 


swapping 


number| 


yes 


yes 


e Generates native code (8080/Z-80) for 
fast execution - 16 bit versions soon 


¢ Sort verb is unmatched by stand-alones. 
2000 elements in two seconds! 


¢ Alpha-numeric labels, variable and 
function names of any length 


© Chain program segments which share 
variables declared common 


e Five data types - binary/BCD/string 


¢ BCD floating point math - never a 
“round-off” error - precision is program 
definable from 6-18 digits 


¢ Full function program editor tests syntax 
as you type 


¢ Recursive, multi-line, multi-argument 
user defined functions 


and mini-manual: 


System/z, 


inc. 


VENDORS, continued.... 


InfoSoft Systems Inc. 
25 Sylvan Rd South 
Westport CT 06880 
203-226-8937 


Kontron Electronics Inc. 
630 Price Ave 
Redwood City CA 94063 
415-361-1012 


Mostek Corp. 

1215 W Crosby Rd 
Carrollton TX 75006 
214-323-6000 


Cromemco Inc. 

280 Bernardo Ave 
Mt View CA 94043 
415-964-7400 


Computer Design Labs 
342 Columbus Ave 
Trenton NJ 08629 
609-599-2146 


¢ No royalties - No run-time charges 


¢ Dimension arrays dynamically (to an 
expression) and selectively erase 


¢ Screen oriented editing of console input 
at run-time (cursor left/right/start/end, 
delete left/right/line, insert/change 
mode, and input masking available) 


¢ Push/pop subroutine stack 


e Trace and single-step debugging 


¢ Multi-tiered error trapping evén handles 


BDOS errors 


e Cursor addressing, reverse and blinking 
video, erase and more are supported 
from source code level, with virtual 
hardware independence 


e An extended library of over 200 
“key-word” functions 


PO, Box 11 


Richton Park, IL 60471 
GID 481-8085 


System/z, inc. 
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* a trademark of Digital Research 


Question: When can I use Ada? 


Answer: NOW —— 
with JANUS. 


Ada is available now for your micro-computer. 
JANUS is a subset of Ada which includes those features sorely missed by 
programmers on micros. Here is a list. to help.you.decide for yourself. 


Modular Separate Compilation 

Single and Double Precision Floating Point Numbers 

Binary Coded Decimal (BCD) Fixed Point Numbers 

Integer and Long Integer Numbers 

Complete String Handling 

Sequential and Random Access 1/0 

Full Dynamic Allocation and Deallocation 

Friendly Error Handling 

An Assembler for-interfacing assembly routines 

A Linker for combining modules 

True native code is produced 

ROMable, reenterant code 

Run-time library source code 

Low Cost. JANUS is more cost-effective than any other comparable 
Ada package 

+ Inexpensive Updates 


t+ et ete tte te tt t 


J 
A 
N * 
U 
S 


The language + No royalties for programs written in JANUS 

that is based + No hassle customer service 

on the past . ; 

but looks to In short, all pluses. JANUS contains everything you need to do fast, struc- 
the uses of tured program development in a micro environment. 

the future. JANUS is available for the CP/M; CP/M-86, and MS-DOS operating systems. 


Now you too can take a step forward into the future on these computers: 
8080/Z80 based systems: (All CP/M) Apple Softcard, North Star, Cromemco, 
Superbrain, TRS-80 Model II, and all CP/M 8” disk systems. 


8086 based systems: IBM Personal Computer, Victor 9000, Seattle Computer 
System II, Tecmar, Lomas Data Products, and all CP/M 8” disk systems. 


8080 or Z80, CP/M (requires 56K memory) — $300,00 
8086/8088, CP/M-86 or MS-DOS (requires 96K memory) — $400.00 


CP/M, CP/M-86, MP/M-86 are trademarks of Digital Research, Inc. 86-DOS is a trademark of Seattle Computer Products 
* ADA is a trademark of the U.S. Department of Defense SB-86 is a trademark of Lifeboat Associates 
MS-DOS is a trademark of Microsoft Apple Softcard is a trademark of Microsoft, Inc. 


Hee ©Copyright 1982 RR Software 
SERRE specialsis in state of the art programming 


P.O. BOX 1512 MADISON, WISCONSIN 53701 (608) 244-6436 
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You say your eprom program- 
ming needs are varied, but 
your engineering budget 
doesn’t permit the purchase 
of that $5,000-$7,000 stand- 
alone programmer? 


a.d.s. has the solution! 


Hardware 

The ads Prom Blaster eprom 
programming card sits on the 
1.E.E.E. 696/S-100 bus as an 
0 device. 


Does not require memory 
locations! 


Handles the following 
devices: 2708's thru 2764's, 
single and three supply parts, 
and the Hitachi 48016 eeprom! 
Device plugs into on-board LIF 
socket. 


Software 

Runs under CP/m* or adsmon 
MC6809 monitor. Price: 
$34995 A & T+ shipping. 
Includes board & software. 


For complete details 
contact: 


ackerman 


digital systems, inc. 

110 n. york rd. 

elmhurst, il. 60126 

(312) 530-8992 *CP/m 


trademark 
Digital 
Research, Inc 
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CP/M-80 


V2.2 KOS 5.2 
+ 


M/OS-80 C/DOs 


Digital Re- 


Vendor Search Kontron 


Mostek Cromemco 


File 

Manage- 

ment 

—named 

files 

—seq. & 
random 
organiza- 


—allocation 
type } linked list 
extents extents of sectors 


—access files 
from hi- 
level lan- 
guage yes yes 


password / 
ISAM module security 
—other available protection 


CompuPro News 

The CompuPro Division of 
Godbout Electronics is planning 
to introduce several new prod- 
ucts in addition to the new 
NS16016 CPU card mentioned 
above. First are three complete 
systems that will include MP/ 
M-II 8/16, SuperCalce and 
DBase-II software packages. 
The RAM-22, a 256K static 
RAM memory card, is also due 
before year-end. 


Morrow & Cromemco 
Introduce Low-Cost 
CP/M Systems 

Morrow Designs has introduced 
a CP/M-based system having 
64 K of RAM and one 5.25” 
floppy (200Kbytes) for $1195 
(a second floppy or hard disk 
may also be installed in the 
unit). Bundled into the system 
is $2000 worth of software that 
includes CP/M, WordStar, 
Mailmerge, SpellStar, Calc- 
Star, Wedge, and MBasic. Just 
add a terminal and printer and 
you are in business. The system 


equentially 
tion llocated 
yes random only tlusters 


extents extents 


random only 


yes yes yes 


uses a single board CPU and is 
being made in Japan. 

Cromemco has introduced a 
system for $1785 that includes 
CP/M, word processing, spread 
sheet and Basic software. The 
system includes 64K of RAM, 
24K of ROM, a 4-MHz Z80, 
12” display, detached keyboard 
and one 5.25” disk drive 
(390Kbytes). 


Zenith Introduces 
S-100 System 

Giving up on its own H-8 bus, 
Zenith has decided to go with 
the S-100 bus in its new Z-100 
system to be introduced this 
month. The unit contains a sin- 
gle board that contains dual 
processors (8085/8088), 
128Kbytes of dynamic RAM 
with parity checking, color dis- 
play (2480 characters or 
500 X 640 graphics; 50X80 
characters available as an op- 
tion) and disk controllers, three 
I/O ports and five S-100 slots. 
The unit comes in a desk-top 
cabinet with either a mono- 


TO ORDER CALL 
(617) 641-1241 


TECHNICAL SUPPORT 
(617) 641-1235 


” SofowarsBane. 


661 MASSACHUSETTS AVENUE, ARLINGTON, MA 02174 


sr oss ae Fininints 
ail itt rmataainenetiis 01) nee a mae 


yy YA Wij Wy, MD) Nene Ms 
Mail il Vy iy) 
Pp  cccenasn 
5 ot ‘ 


NORTE 


Be ccceereero 


dBASE II WE: 


WROTE THE ONLY BOOK 


dBASE II USER’S GUIDE $29 


FREE WITH dBASE II! 
140 PAGES OF ORIGINAL MATERIAL INCLUDING COMPLETE SOURCE CODE FOR A MAILING LIST 
SYSTEM. A MUST FOR BOTH BEGINNERS AND ADVANCED dBASE USERS. 


STOCK THE WIDEST SELECTION OF dBASE II FORMATS 
dBASE II $495 


NOW IN STOCK FOR: 8” SINGLE DENSITY, TRS-80 MODEL II 
5%” APPLE, NORTHSTAR, OSBORNE, SUPERBRAIN, TELEVIDEO, 
VECTOR GRAPHIC, XEROX, ZENITH Z-89 


OFFER THE LATEST ACCESSORY PRODUCTS 


dUTIL $ 69 dBASE II UTILITY PACKAGE 
QUICKCODE = $239 dBASE Il PROGRAM GENERATOR 


TEACH ALL THE CLASSES 


DAY 1 INTRODUCTION TO dBASE II 9AM -5PM $100 
DAY 2 ADVANCED dBASE II TECHNIQUES 9AM-5PM_ $100 


BOSTON CHICAGO DALLAS NEW YORK 
NOV. 6 INTRO NOV. 20 INTRO OCT. 16 INTRO OCT. 1 INTRO 
NOV. 7 ADVANCED NOV. 21 ADVANCED OCT. 17 ADVANCED OCT. 2 INTRO 
OCT. 3 ADVANCED 


SAN FRANCISCO SEATTLE WASHINGTON, DC 
OCT. 29 INTRO SEPT. 11 INTRO SEPT. 18 INTRO 

OCT. 30 INTRO SEPT. 12 ADVANCED SEPT. 19 ADVANCED 
OCT. 31 ADVANCED 


$ F = | *SoftwareBanc SAVINGS PLAN: Every purchase increases the discount you receive on that purchase and future purchases. 
= ey TOTAL PURCHASE DISCOUNT RATE ees ae 
Spe UP TO $499 1% , 
Cr DISCOUNT S00 TO staae 2% more you save. Invest in 
i WWW BY % z 

Kis Fj SCHEDULE $1500 TO $1999 4% the SoftwareBanc today! 
ey) Kee 4 Y $2000 AND UP 5% 
N Wi) HUIWWS 


Payment may be made by Mastercard, Visa check, money order, wire transfers. Mass residents please add 5% sales tax. Add $5.00 for shipping and handling. 
Overseas orders add additional $10.00. Prices subject to change without notice. All items subject to availability. — Mfgs. Trademark. 
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NEW! 
ATTENTION 


S-100 
PRODUCTS 


Z80 
CP/M & NorthStar 


APC BASIC 


The ROLLS ROYCE of Basics 


2-5 times faster performance 
Accurate arithmetic 
Reduces program develop- 
ment time up to 25% 
More programming flexibility 
Better memory utilization 
Easier testing and debugging 
Simple to Use 
NorthStar compatible 
(Microsoft basic 
translator available) 
Supports NorthStar floating 
point processor board under 
CP/M 


FEATURES: 


Trace/conditional trace 
Global edit 

Multiple buffer files 
Dynamic code merging 
Dynamic array dimensioning 
Bit functions 

Local variables 

Cross reference program 
Expanded assembly language interface 
Multiline user functions 
Flexible output formatting 
Subscription phone support 
Source code protection 


APCBASIC pays for itself quickly 
ORDER NOW! 
Dealer inquiries welcome 


Includes APCBASIC, editor, cross 
reference program, library modules, con- 
figuration and compaction programs and 
manual 


APCBASIC: 

NorthStar Dos, Gdos, CP/M 

Z80 CP/M 8” SS SD 

8068/8088 (avail. NOV.) CP/M86.. $400 
(avail. DEC.) MSDOS .. $400 

Manual only 


Check VISA of MasterCard accepted 


American Planning Corp. 
Suite 423, 4600 Duke Street 
Alexandria, Va. 22304 
703-751-2574 


CP/M, CP/M86 are trademarks 
of Digital Research, Inc. 
MSDOS is a trademark of Microsoft Corp. 
Z80 is a trademark of Zilog, Inc. 
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chrome or color CRT. Also in- 
cluded are two 5.25” disk 
drives (floppy or hard disk). 
MS-DOS will be included 
(CP/M-80 and -86 are option- 
al). 


S-100 Ethernet 
Controller Introduced 
Perex Inc., 1798 Technology 
Drive, San Jose CA 95110, has 
introduced the first Ethernet 
controller for the S-100/IEEE- 
696 bus. It is a 2-board set 
called “‘Filtabyte 2.0” and con- 
forms to the Ethernet specifica- 
tion. It will enable a user to 
transfer data at 10 Megabits/ 
sec on an Ethernet local area 
network. 

The controller looks at pack- 
ets of data “‘on the fly” and, 
without interrupting the host 
CPU, determines the action to 
be taken and takes it. It allows 
true concurrent processing. The 
cost is $1295 in OEM quanti- 
ties. 


NEWS BITS 


Lifeboat Associates has raised 
$1 million in venture capital 
from the firms of Bessemer 
Venture Partners, Oak Invest- 
ment Partners and A. David 
Silver & Co. . . . Vector 
Graphics Inc., in July discon- 
tinued its contract to supply 
systems to ComputerLand 
Corp. There are reports that 
sales slumped when the IBM- 
PC system was picked up by 
ComputerLand. V-G will con- 
tinue to sell systems directly to 
individual ComputerLand 
stores. Last year V-G estimated 
that 9% of their sales was made 
through ComputerLand 

stores . . . Tech/Ed Services, 
139 Main St., Cambridge MA 
02142 plans to publish a direc- 
tory of S-100 manufacturers 
and their products. . . . North 
Star has introduced an 8088 


CPU plug-in card for its Ad- 
vantage computer. 


Public Domain Soft- 
ware Libraries News 
The SIG/M group has released 
nine more volumes of public 
domain CP/M based software 
bringing their total number of 
volumes to 64. The new vol- 
umes contain the following: 

Vol-56 Musicraft System & 

Documentation 

Vol-57 Musicraft Selections 

Vol-58 Musicraft Source 

Vol-59 PISTOL Language 

Vol-60 CP/M Utilities 

Vol-61 Pascal-Z Programs 

Vol-62 Pascal-Z Programs 

Vol-63 Pascal-Z Programs 

The SIG/M catalog, listing 
the contents of all 64 volumes, 
is $1.50 (domestic) and $2 
(foreign) and is available from: 
SIG/M, Box 97, Iselin NJ 
08830. 

CPMUG has announced six 
more volumes, bringing their 
total to 81 volumes. The new 
volumes contain: 

Vol-76 Re-release of 

SIG/M Vol-24 

Vol-77 Re-release of 

SIG/M Vol-25 

Vol-78 CP/M Utilities 

Vol-79 Modem Programs 

Vol-80 Cromemco Basic 

Programs 
Vol-81 CP/M Utilities, 
Editor & Text Processor 

The CPMUG catalog is $6 
(domestic) and $11 (foreign) 
and is available from CPMUG, 
1651 Third Ave., NY NY 
10028. 


Replace Your CCP with 
ZCPR 

If you have a Z80 CP/M sys- 
tem and want to improve its 
performance at next to no cost, 
then read on. A public domain 
replacement for the CCP (Con- 
sole Command Processor) part 


CG ances and Crcss compilers 


TELECON’S C COMPILERS OFFER YOU 
@ FULL C 

@ UNIX* Ver. 7 COMPATABILITY 

@ NO ROYALTIES ON GENERATED CODE 

@ GENERATED CODE IS REENTRANT 

@ C AND ASSEMBLY SOURCE MAY BE INTERMIXED 
@ UPGRADES & SUPPORT FOR 1 YEAR 


IN THESE CONFIGURATIONS: 
TARGET TARGET TARGET TARGET 
= 
e FLOAT 


RT-11*/RSX-11* 200.00 “eur 
PDP Lt 500.00 350,00 500.00 500.00 
* 200.00 pile 
sree) 500.00 500.00 55H ON wrt 500.00 
: AT 
PCDOS*/MSDOS* 0.00 "a 
8088/8086 500.00 500.00 500.00 350.00 


Others Pending 
C SOURCE AVAILABLE FOR $2,500 


SO... YOU REREADY TOMOVEUP TOC... 
CALL 
408-275-1659 


TELECON SYSTEMS 
90 E. Gish Road, Suite 25 
San Jose, CA 95112 


is a trademark of IBM CORP. MSDOS is a trademark of MICROSOFT. UNIX is a trademark of BELL LABS. RT-11/RSX-11/PDP-11 is a trademark of Digital Equipment 
Corporation. FLEX/UNIFLEX is a trademark of Technical Systems consultants. CP/M is a trademark of Digital Research. 
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News & Views continued... 


of CP/M has been written by a file). MRZ for another $10 will User Group News 

group of hobbyists (Richard create a custom-installed ver- I have been informed of the ex- 
Conn, Ron Fowler, Keith Pe- sion for you. istence of the following two 
terson and Frank Wancho) and ZCPR adds enhancements to new user groups: 

is called ZCPR. It is available the TYPE, DIR, ERA and Dynabyte User Group: c/o 
free via many RCPM systems SAVE functions. New added Kelly Borsum, Random Factors 
(see listing in Microsystems functions include LIST (output Ltd., Box 2875, Durango CO 
March/April 1982) or from the sent to list device), GET (load 81301; (303) 247-9306. They 
SIG/M group as Volume 54 file at specified address), publish a newsletter. There is 
($4). Or you can get it from: JUMP and GO. ZCPR in- no word on dues. 

MRZ Data Systems Inc., Box cludes an excellent manual PLUG-PL/I-80 User’s 
2571, Warminster PA 18974, (doc file) describing installation Group: c/o Gerry McConnell, 
for $23 (disk + printout of doc and use. Monterey CA 93940; (408) 


646-1147. This group plans to 
distribute PL/I-80 software. 

No other word on dues or ser- 
vices. 


Corrections 
Some errors crept into the dia- 
grams of Chris Terry’s article 
“A Timestamp for CP/M” 
(Volume 3, No. 2, March/ 
April). We apologize for any 
inconvenience caused. 

1) Figure 3, page 62: the pin 
numbers of the address lines 
are reversed. The correct 
pin numbers are: A3, pin 
31; A4, pin 30; A6, pin 82; 
A7 pin 83. 

2) Figure 4, page 64: address 
line A2 should go to pin 3 
of ICs U2 and U3 (NOT to 
pin 1 as shown). Address 
line AO should go to pin 1 
of ICs U2 and U3 (NOT to 
pin 3 as shown). 

3) Figure 5, page 64: Pin num- 

bers were omitted from the 

74LS367. The inputs from 
the clock chip should be 

numbered 2, 4, 6, and 10, 

starting from the top. 

Since the 74LS367 can 

drive only one TTL load, 

and older systems such as 
the Altair and IMSAIT with 
front panel may impose 
more than one load on the 

DI bus, it may be advisable 

to use a 74367 (which can 

drive 10 TTL loads) instead 
of the LS version. 


4 
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IBM Personal Computer 


Do you use your computer? Or does your computer “use” you? Face it, if you’re using floppies, your time is being wasted. 
Because a floppy is an inefficient random access storage device. Each time the processor wants to transfer data, it has to wait 
an eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisk, quick. It’s a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive. Without all the waiting. Do everything you'd do on a floppy or hard disk, with no modifications to your 
software or hardware. Two board sizes are available: 512K and 1 Megabyte. (the highest density microcomputer memory 
board in the world) And you can put up to 8 megabytes in a system by adding more storage boards. 

What do you need to use it? Just an S-100 system with CP/M 2.2. Or a TRS-80 Model 2 system with 
CP/M 2.2. Or an IBM Personal Computer. That's it. No special processors, DMA, I/O, or disk controllers are required. Plug it in 
and run the installation program, and you're on your way. Fast! Even better, we supply full source code to the driver software, in 
case you'd like to do your own interfacing. 

Best of all, the SemiDisk’s price won't warp your wallet. Compare specs, cost/megabyte, storage capacity, and 
compatibility with the competition. You'll see that the SemiDisk is a disk emulator truly worthy of the name. SemiDisk has 
battery-backup capability, too. 

Consider our limited warranty: A full year, covering all parts and labor. Consider our liberal 15 day return policy. Price? 
$1995 for 512K byte SemiDisk, $2995 for 1 Megabyte SemiDisk. Both from stock. $10.00 for manual. VISA, Mastercard, COD 
orders accepted. Dealer and OEM inquiries welcomed. (Specify system type and disk format when ordering.) 


Someday, you’ll get a SemiDisk. 
Until then, you'll just have to......... wait. 


SemiDisk P.O. Box GG 
SYSTEMS Blenveiton, OR 97075 ( 503)-642-3 1 00 


Call (503)-646-5510 for CBBS®/NW, a Semi-Disk-equipped computer bulletin board. NO WA I T | NG 
SemiDisk trademark of SemiDisk Systems; TRS-80 trademark of Radio Shack 
TM 
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Letters to the Editor 


Dear Editor, 

Faced with the need to learn 
something of ‘C’, I applied to 
the local software guru who, 
amongst other qualifications, 
subscribes to Microsystems. He 
laid on vol. 2, #6, which pur- 
ports to introduce readers to C. 
Reading back to front in the 
traditional manner, one early 
finds a full-page advertisement 
extolling the alleged virtues of 
Microsystems. What is the pur- 
pose of such a space waste? 
How is it reconciled with the 
claim on page 8 that space is at 
a premium? The reader of that 
ad holds in her/his hands a 
copy of the magazine—surely 
s/he will soon know, by perus- 
al, more about the possible use- 
fulness of the publication than 
can be learned from any ad. 

If the talents of the Micro- 
systems staff were redirected 
from blurb-writing to editing, 
we might not find the howler, 
“Unlike Basic, C is a compiler, 
not an interpreter” that ap- 
pears in David A. Gewirtz’s ar- 
ticle (page 20). Mr. Gewirtz 
must in some sense believe this 
nonsense for he repeats it on 
page 26, even though by page 
32 he speaks of a C interpreter 
and a Basic compiler, thereby 
affirming that all 4 combina- 
tions of language and imple- 
mentation are not only possible 
but extant. 

This interpreter /compiler 
confusion forewarns us that 
Mr. Gewirtz is not going to be 
up to the task of untangling the 
obscurantist jargon generated 
by the jokers at Bell Labs. One 
can hardly fault an ordinary 
mortal for being unequal to 
that task, but then ordinary 
mortals should not undertake 
an explication of C. 

As an example, consider the 
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simple concept of an “expres- 
sion.” Without excessive rigor, 
we all know what it means—a 
bunch of concatenated vari- 
ables, constants and operators 
which can be “evaluated”’ (re- 
duced) to a single quantity, be 
it numeric, string or boolean. 
Well, that’s not what “‘expres- 
sion” means in Murray Hill; an 
expression can be a statement, 
and to “evaluate an expression” 
means to execute a statement, 
at least sometimes. A clear in- 
stance of this debasement of 
computerese is in “The C Pro- 
gramming Language,” D.M. 
Ritchie et al., BSTJ, vol. 57, 
#6, where we read: ‘‘Since as- 
signments are expressions, 
there is no need for a special 
assignment statement.” 

As far as I can see, “‘expres- 
sion” is nowhere defined by 
Mr. Gewirtz, yet it is vital to 
elementary understanding that 
this be done. His English trans- 
lation of the for-statement ex- 
ample can inform one that 
“j=n” is an assignment, not a 
boolean expression; without the 
extended notion of “‘expression’ 
this can only lead to furrowed 
brows. Of course, brows will 
generally be in that condition 
anyway because he blew the 
example. He should have writ- 
ten: 

for (i=n; i!=j/3; ++i) 
in order that his translation 
might assume the value “true.” 

Perhaps the less said about 
switch the better, since clearly 
a large glob of text has simply 
disappeared. About all we can 
learn from switch is that Mi- 
crosystems is not proofread. 

A quick tour of the Gewirtz 
list of operators is similarly de- 
pressing. As I do not have the 
Kernighan & Ritchie book at 
hand, I hereafter rely on the 


BSTJ piece cited for “official” 
C information. 

*p is not a pointer; it is the 
contents of the location 
pointed to by p (not nnn, 
whatever nnn may mean). 
How can +x “state” that 
x is positive when in gen- 
eral x may in fact be neg- 
ative? Could it be an ab- 
solute value operator? 
(Ritchie et al. are silent 
on + and — as unary 
operators.) 
contradict the introducto- 
ry claim that unary opera- 
tors do not affect stored 
values. What is one in 
need of an “introduction” 
to make of an increment- 
ing or decrementing oper- 
ator whose action is de- 
fined as resulting in the 
operand remaining un- 
changed? I have joined 
the ranks of the relative 
elite by learning that: 
x=t+-+i results in: x = i 

= (old i+1) 
y=it-+ results in: 

y = old i;i = (old i+1) 
(and — — produces sym- 
metrical results), but how 
can one learn this from 
Gewirtz? 

Turn the page and typogra- 
phical chaos strikes with a ven- 
geance. It seems that the Ge- 
wirtz Printer simply leaves 
blanks for such symbols as ~, 
], and |, producing instant gar- 
bage for 7 of the operators. 
Our knowledge that Microsys- 
tems is not proofread is now 
expanded: source manuscripts 
are not read either. 

The shift operators are not 
much use without more infor- 
mation, which may well be 
hardware-dependent. Do the 
shifts wrap around (i.e. are 
they “rotates’’?) and do they 


Z-80* and 8086 FORTH 


PC/FORTH™ for IBM® Personal Computer available now! 


FORTH Application Development Systems include interpreter/compiler with virtual memory 
management, assembler, full screen editor, decompiler, demonstration programs, utilities, and 130 
page manual. Standard random access disk files used for screen storage. Extensions provided for 
access to all operating system functions. 


ZOO FORTE tb GR 2.2) OF IPE oocccsin's arcane ss 4 couse a meusd vad sees bata $ 50.00 
BOBS PORTE ton Gr NEO 60:4 becbink ack Scores 5 Serene & = eee ame oh aaron s gta 4 $100.00 
PC/FORTH for IBM Personal Computer...............cccccvec eens ctuccceveeaees $100.00 
Extension Packages for FORTH systems 
PETER HIPS SOIIIL oc, cacs'c rte e wasn eee Ceca Rees Wt ames ot ee eee ee $100.00 
intel 8087 support (PC/FORTH, 8086 FORTH Only). csisy ss entes ss enwaes epee sas $100.00 
AMD 9511. support (Z-80,, S686 FORTH Only). icanca. sc nccda ad censueuediee ee cemaee as $100.00 
Coleraraoiics {POPOR IH Onyy a2 .<2 cues < triohigs Muayepte be Aaa’: ¢samte s sarmiees ve $100.00 
Data: PASS MAMNAGSMIOM as reces Sevcwecke ciel cicueccur aveteMences «bon trovece dh el anemharuie wiseeuersle s onnmarero mer $200.00 


Nautilus Cross-Compiler allows you to expand or modify the FORTH nucleus, recompile on a host 
computer for a different target computer, generate headerless code, and generate ROMable code with 
initialized variables. Supports forward referencing to any word or label. Produces load map, list of 
unresolved symbols, and executable image in RAM or disk file. No license fee for applications created 
with the Cross-Compiler! Prerequisite: one of the application development systems above for your host 
computer. 
Hosts: Z-80 (CP/M 2.2 or MP/M), 8086/88 (CP/M-86), IBM PC (PC/DOS or CP/M-86) 
Targets: Z-80, 8080, 8086/88, IBM PC, 6502, LSI-11 
Cross-Compiler for one host and one target .............. ccc cece teen eee $300.00 
Each acaitional targets ass sy denies § eee $43 coded araens ose-end ts davee eee enews $100.00 


FORTH Programming Aids by Curry Associates. Includes Translator, Callfinder, Decompiler, and 
Subroutine Decompiler. 40 page manual. Used with Cross-Compiler to generate minimum size target 
applications. 


SPSCiy NOS! SYSTEIT <s acoma's< marae Wo ac eo yf oe BE ees Eve ees eee ek ee ee $150.00 


Z-80 Machine Tests Memory, disk, console, and printer tests with all source code in standard Zilog 
WUISINIONICS 3° co A) cs ieee ee hs Moon 8 de we So ances £ A eee £4 Bee we ee wee $ 50.00 


All software distributed on eight inch single density soft sectored diskettes, except PC/FORTH on 5% inch soft sectored single 
sided double density diskettes. Micropolis and North Star disk formats available at $10.00 additional charge. 


Prices include shipping by UPS or first class mail within USA and Canada. Overseas orders add US$10.00 per package for air 
mail. California residents add appropriate sales tax. Purchase orders accepted at our discretion. No credit card orders. 


Laboratory Microsystems 
4147 Beethoven Street 
Los Angeles, CA 90066 
(213) 306-7412 


Z-80 is a registered trademark of Zilog, Inc. 
CP/M is a registered trademark of Digital Research, Inc. 
IBM is a registered trademark of International Business Machines Corp. 23 


CIRCLE 29 ON READER SERVICE CARD 


S-100 Boards from S. C. Digital 


ye" 2808 CPU BOARD 


features: Model 280 CPU ; 

@ 2, 4 or 6 Mhz clock, Sw selectable. @ 22 bit addressing 
using memory mapping in 16K blocks making the addressable 
range to 4 mega bytes. @ On board bank selectable 2KB or 
4KByte of EPROM (not supplied) with Phantom disable. 
@ Jump on reset. @ Provision to run two different CPU's on 
the same bus, such as forth coming 8086 board. 


256K DYNAMIC RAM 


features: Model 256KE 

@ 16 or 24 bit address. @ 8/16 bit wide data @ 
Transparent refresh with unlimited DMA, immune to Wait 
States, halts, resets. @ Fast access time 180nsec from 
Smemr or Psync high, will run with Z80, Z8000 to 6mhz, 
8080, 8085, 8086 to 8mhz without Wait States. © 
Accepts 4116, 4164's. 


32K STATIC RAM ‘Uniselect: 3’ 


features: Model 32KUS 

© Fully Static using 2k by 8 MOS chips. @ 16 or 24 bit 
address. @ 8/16 bit wide data. @ Bank Select by port and 
bit in 32K block. @ Two 16K block addressing with window 
capability in 2k increments. @ EPROM can be mixed with 
RAM. @ Fast access - 250nsec from address valid - will 
run with 280, Z8000 to 4mhz, 8080, 8085, 8088, 8086 or 
68000 to 8mhz without Wait States. @ Provision for 
Battery Backup. 


Z80 CPU Board 
features: Model CPU! 280 


@ 2 or 4mhz clock. @ Jump on Reset. @ 8 levels of 
prioritized vectored interrupts. 


1/0, MEMORY INTERFACE ‘Interface’ 


feature: Model 3SPC 

@ 3 serials using UART, RS-232C or 20ma current loop. 
© 1 parrallet |/0 with hand shakes. @ 4K Ram, 4K EPROM 
(not supplied). Buitt in Kansas City Audio Cassette interface. 
© Baud rates from 19.2K baud to 110 baud. Model 3SPC-N 
comes with less cassette, current loop, and ram, rom 
sockets. 


2K Z80 Monitor Program 
available for M:3SPC 


features: many routines including breaker points, cassette 
record and play back . . . etc. Comes in 2 EPROMs and 1K 
RAM. 


All boards conform to IEEE696/S100 specifications, fully 
socketed, screened legends, masks, Gold contacts. Guaranteed 
One Full year. 
New price effective September 1, 1982 
Prices with 

Memory mapping; 6MHZ clock 

256KB 

128KB 

32KB with CMOS 

16KB with CMOS 

no memory chips 

with interrupt 

with cassette 


see above 
with source code 


All boards come assembled and tested. 


Delivery is within 3 to 5 working days. MC, Visa or COD 
orders accepted. (Add $6 for COD orders) Illinois residents 
add 544% sales tax. 

0.£.M. & DEALER PRICING AVAILABLE 


S. C. DIGITAL 
P.O. Box 906 
1240 N. Highland Ave., Suite #4 
Aurora, Illinois 60507 
Phone: (312) 897-7749 
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Letters continued. . . 


include such possible extras as 
sign, carry, extension or over- 
flow bits? 

The examples chosen to il- 
lustrate & & and | seem partic- 
ularly inept: 
if (a==b && b==c) a=c; 
yields the same result as: if 
fa==b & b==c) a=c; 
Aside from the (unmentioned) 
usefulness of strict left-to-right 
processing, the uniqueness of 
& & (and |) only rears its head 
when the non-zero-ness occurs 
elsewhere than bit 1 (or bit 0 if 
so numbered), and this cannot 
happen with the boolean ex- 
pressions chosen. 

Presumably, a symbol is 
missing after x,y. As Ritchie 
et al. are again silent, it might 
be particularly useful to have 
some idea of what this operator 
could be used for. The apparent 
uselessness may arise from a 
still-too-restricted notion of 
“expression.” 

The definition of extern 
came a cropper somewhere, 
which is too bad because the 
official one is fairly murky. It 
implies that a specific machine 
storage location will be shared 
by any number of separate pro- 
grams which happen to use the 
same variable name; magic in- 
deed. The berserk word proces- 
sor (or typesetter) struck again 
at pointer to, which is as good 
a place as any to lay aside Mr. 
Gewirtz’s errors and turn to his 
omissions. 

He makes no mention of 
structures, unions, or their e 
operator; of main or default; or 
the — operator for pointers. No 
information is given on opera- 
tor precedence. He says nothing 
of the format of function decla- 
rations, or the peculiar require- 
ment for a return statement 
within the body, or the awk- 
ward business of getting a non- 


integer value returned or the 
requirement that all functions 
be global to the entire program. 
Missing also is any reference to 
the “macro preprocessor.” Tak- 
en at face value, Ritchie et al. 
(page 2010) appear to claim 
that assignment of a constant 
value to a variable name is a C 
no-no. Rejecting this notion as 
too preposterous even for the 
Bell gang, the preprocessor’s 
#define seems to reduce to an 
involved mechanism to squan- 
der storage by placing one con- 
stant in many locations. Surely 
this must mean something 
beyond the grasp of a novice 
such as myself, but it is appar- 
ently too much to hope for ex- 
plication in what claims to be 
an introduction. 

In case it is useful in placing 
this criticism in context, my 
own experience is mostly with 
low-level hardware, but at one 
time or another I have worked 
(or suffered) with Basic, For- 
tran, Algol-60 (my standard of 
comparison for high-level lan- 
guages) and assembler GE-645 
through PDP-8 to RCA 1801. 
The review section of Mr. Ge- 
wirtz’s article does introduce 
(as accomplished fact) some of 
the matters omitted in the “‘in- 
troduction,” but this section too 
is so shot full of error that it 
seems not worth pursuing. 


T.R. Jackson 
Box 1 
Corinth 
Vermont 
05039 


Don Libes replies: 
Thanks very much for your 
letter and critical interest in 
the quality of Microsystems. 

C is not an easy language to 
learn. It isn’t the kind of lan- 
guage where you can pick up 


Move up to 
Microsystems 


THE JOURNAL FOR SOPHISTICATED 
MICROCOMPUTER USERS. 


Microsystems is not, in any sense, for beginners. # A comparison of five popular S-100 disk 
Unlike “personal computer” magazines, controller cards. 

Microsystems is written exclusively for expert users . 

and denies in the software andsapoae hard- =O UR BOO wha CHiN 
ware field. Every issue of Microsystems keeps you at the 
forefront of the industry in customizing software 
and adapting hardware to meet new requirements 
and standards. You'll also find industry news, book 
and new product reviews, plus our regular Software 
Directory listing newly available programs. 


If you need a reliable, high-level, up-to-date 
journal devoted to CP/M® MP/M® MS-DOS™ 
UNIX® XENIX™ OASIS and other operating 
systems, then Microsystems is for you. We feature 
tutorials on the modification and special use of 
systems, offer short-cut routines, show you debug- To get the high-level systems information you 
ging procedures, techniques for interfacing, and want, join the club of serious microcomputer pro- 
much more. Our one purpose is to keep the fessionals who subscribe to Microsystems. Use the 
advanced microcomputer professional at the lead- coupon below to order, and save up to 33%! 


ing edge of DOS development and use. 
, PROFESSIONALS —_ 
In a few recent issues of PLEASE NOTE: ian ics 
Micros ystems you would have seen: Your subscription to Microsystems Ome ~ 


may be tax deductible. Check oe 


® Reviews of four C compilers: BDS C, Small C, NED ORE 
tiny c TWO™ and Whitesmiths C. Trademarks: 


XENIX: Microsoft: tiny c TWO: tiny c assoc. ; 
PL/I-80, MS-DOS, MP/M-80 II: Digital Research. 


}@ A programming style comparison: Digital Registered Trademarks: x: Bell 
| Research PL/I-80™ vs. Microsoft BASIC. Laboratories. ake 
m Twenty-seven 16-Bit DOS compared. eee ee 


1 CN 1987 
® Virtual segment procedures under UCSD Micro TS Morristown, New Jersey 07960 
Pascal. 
}@ An in-depth look at MP/M-80 II™ 


= A simple 6-byte hexadecimal ASCII conversion 


YES, enter my subscription to Microsystems for: 
OC 12 issues at $19.97—I save 20%. 
0 24 issues at $36.97—I save 26%. 


routine. 
saan 0 36 issues at $49.97—I save 33%. 
m Using CP/M’s undocumented “Autoload” Savings based on full 12-issue subscription price of $24.97. 
feature. 


Mr. 


8HO5 
Ms. 


@ An explanation of double density disk 


(please print full name) 


controllers. Company —“‘“‘“‘“‘“‘“‘(CS™SCS 
Address 
City 
BO Se 


CHECK ONE: 0 Payment enclosed. O Bill me later. 


Offer valid in U.S. and possessions only. Please allow 30 to 60 days for delivery of first 
issue. Satisfaction guaranteed or a prompt refund for unmailed issues. 


NEW SUBSCRIBERS ONLY 


i eg oe tc 


' 


__ A language for creators. 


STOK PILOT can make your final 
product more saléable and keep it sold. 


This unique langauge allows straight- 
forward creation of a friendly interface 
between novice users and CP/M for 
any program application. Using STOK 
PILOT, a software designer can easily 
produce a _ hand-holding menu-driven 
front-end supervisor with built in tutorials 
to help guide the novice end-user through 
a complex application. The actual end- 
user does not have to know STOK PILOT. 


STOK PILOT opens the door for 
companies to evolve structured ap- 
proaches to meeting their own training 
needs. 


STOK PILOT can _ simulate any 
application program for the purpose of 
tutoring the user. This allows training and 
guidance without the necessity of working 
on and possibly damaging live data. Then, 
when the user is ready, STOK PILOT can 
call the actual application program. 


STOK PILOT is a superset of the PILOT 
CAI language. STOK PILOT was designed 
with the syntax and structure of PILOT 
because PILOT is an easy to use and easy 
to learn language. 


STOK PILOT can be thought of as an 
interactive SUBMIT facility. One program 
written in STOK PILOT can control an 
entire session without ever entering 
cumbersome CP/M commands. The 
commands can be dynamically formed at 
run time by STOK PILOT. 


Menus can be created that will allow the 
user to select various programs. STOK 
PILOT can chain to any program or utility 
written in any language, leaving the entire 
TPA available, and regain control when the 
other program ends. 


STOK PILOT can check for the existence 
of a file before it actually calls the application 
that needs it. Let STOK PILOT see to it that 
the proper disks have been inserted by the 
user. 


The package includes a well written and 
indexed 75 page manual. All the instruc- 
tions are explained in full detail. Many 
useful programming examples are also 
included. 


Complete 8 inch CP/M format disk and 
manual retails for $129.95. The manual is 
available alone for $14.95 and is deductible 
from a future order. NY residents please add 
sales tax. 


Toll free order line: (800) 431-1953 ext 182 
In NY (800) 942-1935 ext 182 


C.O.D. - Mastercard - Visa 


Stok Software Inc. 


17 West 17th Street 
New York, NY 10011 
(212) 243-1444 


Dealer inquiries invited 
CP/M is TM of Digital Research 
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Letters continued... 


the manual, see the differences 
it has from, say Pascal, and do 
it. As Dave Gewirtz amusingly 
says, it is a high-level low-level 
language often used for sys- 
tems work. It requires some fi- 
nesse to use it well; it requires 
experience. 

You can’t learn it from an 
article in a magazine. In fact, 
you can’t learn it from 
Ritchie’s book, either, in my 
opinion. All you can hope for 
is to learn about it. To that 
end, I think Dave’s article ac- 
complishes its task. 

Let me reply to your specific 
points now: 

para 2: compiler vs. inter- 
preter. You are right. Dave has 
made an overgeneralization in 
trying to be terse. Let us say 
that while it is by far more 
typical (and easier) to build 
Basic interpreters and C com- 
pilers, both have been imple- 
mented in the opposite fashion. 

para 4: As you say, there is 
an intuitive idea of what an ex- 
pression is. Hence the author 
does not define “expression.” I 
don’t know why you don’t ad- 
mit a statement such as 
“a=1” or “fn()” as an expres- 
sion. These are valid expres- 
sions in almost all high-level 
languages, including many ver- 
sions of Basic. 

para 5; i= =j/3. You’re 
right. The example is wrong. 

para 6: switch. I don’t know 
what happened to the example 
code! Somebody goofed during 
pasteup time. 

Page 2 para 1: The BSTJ 
volume is out of date now and 
should not be considered “offi- 
cial” in any sense. Indeed, that 
document states that C is a 
compiler! My point is simply 
that new implementations of C 
are free to differ in functional- 
ity from the original UNIX C 


compiler. 

para 2: Your complaints on 
operators are groundless. His 
terminology, while informal, is 
correct. He completely notes 
the differences in ++ and 
——. You might feel enlight- 
ened if you were to think about 
them for more than 10 sec- 
onds, but they are really not of 
any consequence and just serve 
to confuse people interested in 
learning about the language. 
I’m not sure of the unary +. It 
may be present in one of the 
implementations he reviewed 
and therefore he included it for 
completeness. I'll check with 
him. 

para 3: ~,T and |. You’re 
right. 

para 4: shift. “Shift” is not 
synonymous with “rotate.” 
Status bits are always going to 
be implementation-dependent, 
of course! 

para 5: & vs &&. As with 
paragraph 2, you are nitpick- 
ing. I think his example is fine. 
Elaborating further might con- 
fuse more people. 

para 6: ,. The comma opera- 
tor exists in the UNIX C com- 
piler and is as the author de- 
scribed. 

para 7: extern. The word 
“is’’ is missing from between 
“identifier” and “outside.” 
While not excusable, it’s still 
readable. None of C is 
“magic” by any means. 

para 8: pointer to. You’re 
right. This should have had an 
asterisk there with the “pointer 
to” in parens. 

Page 3. 

Indeed, it is hard for the 
proofreader (if indeed there 
was one!) to catch things that 
are missing. I agree, structures 
should have been mentioned. 
Operator precedence and func- 
tion declarations, on the other 
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hand, are best left unex- 
plained. Operator precedence is 
not sufficiently different from 
any other language to warrant 
explanation. Function declara- 
tions are confusing to every- 
body. I don’t know what “pecu- 
liar requirement” the return 
statement is that you mention. 

The author should have 
mentioned the “flat” nature of 
C, its scoping rules, and its 
ability to perform recursion. 
It’s unfortunate that this was 
lacking. 

The “macro preprocessor” 
that old C fans are familiar 
with was best left out of the 
article. The facility of saving 
limited storage space is only 
one asset that a good prepro- 
cessor can add to a program- 
mer’s bag of tricks. Any good 
programming environment will 
supply one with a preprocessor 
that handles arguments, condi- 
tion testing, arithmetic capabil- 
ities, string functions, file ma- 
nipulation AND has nothing 
intrinsic to do with the lan- 
guage. For example, the Pascal 
definition speaks nothing of a 
preprocessor. What one would 
like to do of course, is to be 
able to use one powerful pre- 
processor for both Pascal and 
C. In fact, a good preprocessor 
can be used for many applica- 
tions besides writing programs. 

In summary, I think the ar- 
ticle was still quite worthy. 
Granted, there were an unusual 
number of typographical er- 
rors, but the technical content 
was all correct and well- 
rounded. Overall, it gave a 
good picture of what C was 
like and certainly cleared away 
any ideas of it being “magic.” 
As for the rest of the article, I 
thought the reviews were quite 
enlightening. If I was inter- 
ested in C and had a question 


MIDWEST MICRO 
WAREHOUSE 


3437 Holmes e Kansas City, MO 64109 e Phone (816) 753-1304 


Our ad is so-so, but our pricing is hot! Below are a few of the fine products we 
offer. If you don’t find what you’re looking for, call us! 


KIT A&T 
“D Systems SBC-200 315. 396. Visual Technology 
Expandoram II 215. 347. Visual 200 985. 
PROM 100 199. 299. Visual 400 1400. 
VF-II 308. 397. NEC 7710, 7715 = 2850. 
Godbout Disk 1 N/A 395. NEC 7720, 7725 = 3250. 
CPU-Z N/A 250. (W/Vert. Forms) 
12-Slot Mother N/A 133% 
T.I. 810 (Basic) 1545. 
Micromation Z-64 1040. (Loaded) 1735. 
Doubler 395, 
Multi-User I/O 239. DataSouth DS-180 1385. 
System Z 4600. MicroPro Int’l. 
Seattle 8086 Card Set 655. Wordstar 300. 
(W/86-DOS) MailMerge 100. 
4 Port Serial I/O 240. DataStar 235: 
8/16 Static RAM 260. SuperSort II 145. 
16K + Static RAM 260. 
Microsoft 
TEI MCS-112, 122 650./780. FORTRAN 349. 
RM-12, RM-22 705./850. COBOL 574. 
DFD-0 490. BASIC-80 294. 
RFD-O 630. BASCOM 329. 


We ship prepaid or COD certified check, M.O., or cash with 10% deposit. 
Shipping is from stock to 15 days; most products in stock. And (sorry!), at these 
prices, we cannot pay shipping charges. 
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STRONGER 
THAN EVER 


1, —2 
INMISAI 8080 
amen 


IMPROVED) 


8080 Microcomputer Systems 
S-100 Boards & Power Supplies 
Floppy & Hard Disk 
Sub-Systems 

CP/M*, MP/M* & CP/NET* 
Operating Systems 

Complete Range of Software 


CALL OR WRITE TODAY for your FREE IMSAI LINE CATALOGUE 


IMSAI “Thinking ahead for the 80’s 
—_F 


Computer Division of the Fischer-Freitas Corporation 
910 81st Avenue, Bldg. 14 ¢ Oakland, CA 94621 


415/635-7615 


*CP/M, MP/M and CP/Net Are Trademarks of Digital Research, Inc. 
Imsai is a trademark of the Fischer-Freitas Corporation 
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ATTENTION APPLICATION PROGRAMMERS 


MCDISPLAY™ IS HERE 
MASTERCOMPUTING has the answer to your biggest headache: user data entry. 


Now devote your valuable time as a professional to the actual application rather 
than to the design of complex input prompt control and data entry checking. 


MCDISPLAY™ is a two part display oriented data entry system. 
. DISPLAYDEF - Development Utility 2. DISPLAYASM - Powerful assembly calls 
Define display formats ¢ Build displays, process entries 
Define entries, prompts, messages, text + Handle messages and prompts 


_ 


¢ Document display format + User callable directives and primitives 
+ Build display disk files + Entry fields transparent to program 
DESIGN CONCEPTS 

¢ Large system approach ¢ High speed operation 
¢ User oriented * Displays easily changed & tested 
+ Language and system independent ¢ Professional Documentation 
- Complete entry checking, conversion + Maintenance Free 

& protection ¢ Low cost - $175.00 includes manual 
¢ Low RAM and disk overhead 

SYSTEM REQUIREMENTS 


° 


CP/M™ 1.4 or 2.2 with cursor addressable terminal or CRT 

Languages - MBASIC, BASCOM and Pascal/Z; other languages to follow 
Compatible with the TRS80-II, Osborne I, and Apple with the SoftCard 
Memory mapped video version available soon 


FREE 12 PAGE BROCHURE 
DEMONSTRATION DISKETTE - $10.00 REFUNDABLE 
WITH PURCHASE OF MCDISPLAY™ 


@ 
m MasterComputing, Inc. CP/M is a trademark of DIGITAL RESEARCH 


P.O. Box 17442 SoftCard is a trademark of Microsoft 
Greenville, SC 29606 MBASIC and BASCOM are products of Microsoft 
(803) 244-8174 Pascal/Z is a product of Ithaca Intersystems 
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CP/M SYSTEMS 
COMPATABLE 6080/24 SOFTWARE 


STANDARD UTILITIES 


$  Source/Object 
COMMX™* — Menu Driven Communications with Information Services (DEC - IBM - UNIVAC - 
CBBS - etc.) and Remote COMMX Systems Transfer Any File Type/Size. Nine 


Link and Eight Local Functions Prompt for Mindless Operation. ............ 500.00 75.00 
D — Disk Directory 4 Column Sort with File Size/Disk File and Space Status. ... 40.00 20.00 
DDB — Disk Directory Database UPDATE/INQUIRY Catalogs Files Fast........,.... 60.00 25.00 
DCOMP — Disk File Compare with Another Disk File with Display Option. ........ wes 30.00 20.00 
MCOMP — Memory Range Compare to Memory (ROM or RAM) - Console Logs Errors. 30.00 20.00 
MTEST — Memory Test Any Range with Before/After Write Error Bits + Pass # ...... 30.00 20.00 


ADVANCED UTILITIES 


CDIR — Comprehensive Sorted Disk Directory/Cross File Block Allocation Check. 30.00 20.00 
COPSEQ — Specify Disk Area and Copy Sequentially to CP/M File. ............. 30.00 20.00 
DASM — 8080 Object Dis-Assembler with Symbol Table/XREF/ASCII MAP. 100.00 40.00 
DXRSIZ — Disk Exerciser Read or Write/Track/Sector/All/Set and Check Skew. 60.00 25,00 
GEDIT — Gang String Substitution Made Globally in One Pass Editor. ........... 50.00 20.00 
PREDIT — Source Program Version Number Maintenance at Pre-Edit Time. . 40.00 20.00 
PROMER- — Load/Display/Patch/Copy/Verify/Burn /2K+1K+2K+4K Proms. .... 60.00 30.00 
RELOC — 8080 Object Code Relocator: Put This Into Your Program. ........ eeucmvies 30.00 20.00 
x6502 — 6502 Crossassembler MAC Macro Library and Post Processor. ............. 100.00 


MEMORY MAPPED VIDEO 


CGEN — EPROM Character Generator Editor for Video Display Boards. .............. 50.00 20.00 
DXAM — Disk Track Sector Examine with Update in HEX or ASCII or EBDIC. ........ 40.00 20.00 
VBASIC — 9K Disk Basic with Super Video Commands and Full Screen Program Editor. 

Supports Different Video Cards with Identical Program Execution! .......... CALL 100.00 
VGAMES — For VBASIC: Othello/Blackjack/Breakout/Blockade/Poker Slot and Draw. 50.00 
SOUNDS — VBASIC Development System for AY-3-8910 Sound Chip Sounds. 30.00 
PMIS — Program Management Information System (Critical Path Method). 90.00 
DBMS — VBASIC Data Base Management System/Define/Enter/Report. ... 75.00 
VIDEO — Parameter Controlled Multi-User or Scroll Window Video Driver. .. ise y 
VDRAW — Vector Line Draw and Plot Subroutine for Fast Graphics. ................... 30.00 
CHESS — Graphic Games: IMSAI VIO: VECTOR GRAPHIC Flashwriter 2: SSM VB3. ... 30.00 20.00 
INVADERS — Zap!/Sound Effects/Joystick or Buttons or Console/Kill or be Killed. ........ 50.00 20.00 
STARTREK — Realtime Action/Sound Effects with Host of Commands and Missions. ...... 40.00 20.00 
TARGET — Moving Aircraft Shooting Gallery with Speed Options/Sound Effects. ....... 40.00 20.00 


“CP/M is a Registered Trademark of Digital Research 


Disk $7.50 Extra — Cal. Residents Add 6% Sales Tax 
Send Your Disk! — S. Den 8" +MICROP+APPLE+NSTAR 
Dial 213/348-7909 to Get Free Product Brochure 


HAWKEYE 
7. GRAFIX 


23914 MOBILE 
CANOGA PARK 
CA 91307 USA 
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Letters continued... 


over which one to buy, Dave 
Gewirtz’s article was perfect 
for laying the answer complete- 
ly out in front of me. 

Better proofreading to come. 
Editor 


Dear Editor, 

I have just received the 
March/April 1982 issue in 
which you reproduced a letter I 
sent to you last year in re- 
sponse to your own call for let- 
ters from readers with ques- 
tions. I understood your own 
message to suggest that you 
would try to answer them, rath- 
er than simply print them, 
hence the letter was not only 
informal, but may be inadver- 
tently misinterpreted and thus 
slight a fine manufacturer. I 
mentioned I own a Dynabyte 
and asked for further informa- 
tion on dise drives and disc er- 
rors. However, the errors I ex- 
perienced I believe were mainly 
due to careless handling of 
discs, and after getting proper 
storage equipment, I have not 
had one disk error since then— 
which is more than a year now. 
The Dynabyte has been highly 
reliable. I suspect—based on 
my knowledge of the experi- 
ence of others—that it is the 
most reliable of all the S-100 
brands I have heard about lo- 
cally. Furthermore, my own ex- 
perience and that of colleagues 
indicates superb, highly con- 
scientious backup from Dyna- 
byte, above and beyond the 
stated warranty period. 

Although my first letter was 
not intended for publication, I 
think it is only fair that this 
one be printed in order to cor- 
rect any misimpressions it may 
have created. 


Ben Singer 
5 Lindbrook Ct. 
London, Canada N5X 2L4 


THE PERFECT 


10 MHZ PAIR 


WTS 20%) PC86 16 BIT CPU AND SUPERAM 50 256K RAM 


PERFORMANCE — FLEXIBILITY — QUALITY — RELIABILITY 
MADE POSSIBLE BY SOLID DESIGN AND MANUFACTURING DISCIPLINES 


PHSZON PC8&6 


$535* 
FEATURES: 
© 8086 16 BIT CPU; 5, 8 OR 10 MHZ 


@ FULLY COMPLIES WITH OR EXCEEDS PROPOSED IEEE 696 / 
$-100 BLS SPECIFICATION 


@ 4K BYTES OF FPROAT'S, EXPANDABLE LO 8K. 16K or 32K 
BYTES. MONITOR PROGRAMA INCLU DED 


@ RS232 SERIAL INTERFACE — 8251 

@ INTERVAL TIMER — 8253 

@ INTERRUPT CONTROLLER — 8259 

@7 MEGABYTE DIRECT ADDRESSING (16 MEGABYTE INDIRECT) 
@ INTERNAL BUS 

@ SUPPORTS 8/16 BIT 1/O BOARDS 

@ SUPPORTS MEMORY WITH PARITY ERROR DETECTION 


@ USE OF HIGH QUALITY COMPONENTS, SECURING OF 
LARGE IC’S AND DIRECT SOLDERING OF SSI'S AND MSI'S 


@ 4 LAYER PC BOARD WITH DEDICATED GROUND LAYER 
@ CARD PULLERS 


@ 100% FACTORY TESTED INCLUDING VOLTAGE MARGIN 
TESTS AND TEMPERATURE BURN-IN 


@ OFF THE SHELF DELIVERY WITH 1 YEAR WARRANTY 


EXPANSION OPTIONS 


@ MULTI-MASTER CAPABILITY 

@ 8087 NUMERIC DATA PROCESSOR 
@ PRIVATE RAM — UP TO 1 MB 

@ NON-VOLATILE REAL TIME CLOCK 
@ PARALLEL 1/0 — 8255 

@ SOLID STATE OPERATING SYSTEM 
INTRODUCTORY PRICE — $535.00* 


LIST PRICE — $895.00* 
*PC86-05 (5 MHZ) 


CONTACT — PIICEON, INC. 
2045 LUNDY AVE., SAN JOSE, CA 95131 408-946-8030 


ECON SUPERAM 50 
$990* 
FEATURES: 


@ FAST BOARD ACCESS TIME OF 275, 225 OR 175 NSEC MAX 
OVER 0-55 C 


@ OPERATES WITH FASTER CPU'S (6 MHZ Z80B, 10MHZ 8086 
ETC.) WITHOUT WAIT STATES 


@ FULLY COMPLIES WITH OR EXCEEDS PROPOSED IEEE 696 / 
$-100 BUS SPECIFICATION 


@ SUPPORTS 8/16 BIT OPERATION 


@ USE OF HIGH QUALITY COMPONENTS INCLUDING METAL/ 
METAL/METAL CONTACT SOCKETS FOR RAM’S AND 
VLSI'S, NO SOCKETS FOR TTL’S 


@ HOLD DOWN STRAP FOR VLSI 

@ 4 LAYER PC BOARD WITH DEDICATED GROUND LAYER 
@ CARD PULLERS 

@ PARITY OPTION WITH AN LED 


@ 700% FACTORY TESTED INCLUDING VOLTAGE MARGIN 
TESTS AND TEMPERATURE BURN-IN 


@ MANY PROVISIONS FOR NON-IEEE 696 CPU'S 


@ OASIS OPERATING SYSTEM WITH UP TO 4 USERS. EACH 
WITH 48KB — SUPERAM 50 SPC 


@ OFF THE SHELF DELIVERY WITH 1 YEAR WARRANTY 


CPU COMPATIBILITY 


@ PIICEON PC86-05, 08, 10 
@ ALPHA MICRO 

eccs 

@® CROMEMCO 

@ DUAL @ SEATTLE COMPUTER 
@ GODBOUT @ SKI ELECTRONICS 
SUPERAM 5 — 64K VERSION ALSO AVAILABLE 


INTRODUCTORY PRICE — $990.00* 
LIST PRICE — $1395.00* 
*SUPERAM 50 (275 NSEC ACCESS TIMF) 


@NNC 
@ MORROW DESIGNS 
@ NORTH STAR 


SUBSTANTIAL QUANTITY DISCOUNTS AVAILABLE TO 
OEM’S AND DEALERS 


DEALER INQUIRES INVITED 
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End the Dark Ages of 
Assembly Language.... 
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SMAL/80 gives you the logical power, 
versatility and convenience of a com- 
piled, structured high level language 
like Pascal, Ada or C, plus the effi- 
ciency of assembly language. 

Lj intuitive, processor-independent sym- 
bolic notation system to make your pro- 
grams easy to read, debug and maintain; 
L| programming constructs BEGIN... 
END, IF... THEN...ELSE, and LOOP... 
REPEAT, plus indentation, to graphical- 
ly display the structure of your algorithms; 
| extremely flexible macro and text 
pre-processor to create your own pro- 
gramming environment; 

J compiler/linker to mix your input 
source code and relocatable object code, 
creating modular programs; 

translator program to automatically 
upgrade your assembly code to SMAL/80; 
LJ available on CP/M disks with manual 
Sor $150 plus $4 shipping. 

L) Macro processor available separately 
for $75. Complete tutorial text: ‘‘Struc- 
tured Microprocessor Programming”’ 
(Publ. Yourdon Press) $20. 

Send for your free button and litera- 
ture or try the Ultimate Demo: 
SMAL/80 is 100% Guaranteed! Re- 
turn it fora full refund within 45 days 
of purchase if not satisfied. 


Chromod Associates, 


1030 Park Ave., Hoboken, N. J. 07030 


Telephone: (201) 653-7615 


Also available from 
WESTICO (203) 853-6880 
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Dear Editor, 

The SUBMIT replacement 
by David Cortesi in the May/ 
June 82 issue of Microsystems 
was very interesting for its de- 
scription of how SUBMIT does 
its job, and provides a fine base 
for future improvements. There 
is a simple patch, however, that 
can fix one of the defects of 
SUBMIT with much less ef- 
fort. 

I found the program’s urge 
to translate everything to up- 
percase the most bothersome 
problem. Exploration of the ob- 
ject code with DDT revealed a 
fix. At 036FH of SUB- 
MIT.COM (the version distrib- 
uted with CP/M 2.2) there is 
an ANI SF instruction. Chang- 
ing the two bytes E6 5F to 00 
00 (NOPs) results in a SUB- 
MIT that no longer does case 
conversion. 


Albert S. Woodhull 
School of Natural Science 
Hampshire College 
Amherst MA 01002 


Dear Editor, 

SUBMIT certainly simplifies 
compilation and the associated 
stroke entry for requesting it. 
However, Mr. Schwab in his 
article in the May/June issue 
did not perform the ultimate in 
simplification—and that sur- 
prised me! I use Ward Chris- 
tiansen’s catalog program 
(CP/M user group disk 40) to 
keep track of my disks and all I 
have to say to update the cata- 
log for a disk in drive B is 
“ss”. This is because I have 
renamed SUBMIT.COM to 
S.COM and the submit file I 
refer to is called S.SUB. 


Ivan Flores 
108 Eighth Ave 
Brooklyn NY 11215 


Dear Editor, 

I think you have a very good 
magazine; the CP/M + S-100 
slot is an important one in the 
magazine field. Stick with it. I 
list a couple of areas I would 
like to see more articles: 

(a) More reviews on operat- 

ing systems (MuDOS or 

MULTI/OS). 

(b) More education-oriented 

review (what S-100 systems 

are appropriate for a net- 
worked instructional sys- 
tem?). 

(c) More construction ar- 

ticles (e.g. a parallel I/O 

board for adding a printer). 

(d) Review on an ST or 

Shugart 5%-inch hard disk, 

and how well it works with a 

standard controller and soft- 

ware (e.g., CCS). 

(e) Articles and programs in 

Forth. 


Dr. David L. DuPuy 

St. Mary’s University 
Halifax, Nova Scotia 
Canada B3H 3C3 


Dear Editor, 

I refer to the evaluation on 
Data Star by Glenn A. Hart in 
the May/June issue. 

I agree completely that “Mi- 
croPro should add a switch 
which would disable generation 
of the index file.” 

One method of getting 
around this problem and stop- 
ping entry “bogging down”’ is 
to create an extra field of one 
character as the “key field” 
and giving that field the attri- 
bute of only being one particu- 
lar character. In this way it is 
not time-consuming for Data 
Star to keep the index file and 
input is not slowed down. 


Robert T. Armstrong 
P.O. Box 2623 
Toronto, Australia 2283 


MEET OUR FAMILY 


The InfoSoft Family of 
MicroComputer Operating 
Systems 


lafoSoft 1/0S 


lafeson UNI/os° 


lafoSor uNrgg 


lafoSoft Multl/36 


Over 100,000 users 
can’t be 
wrong 
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I/O Bottle NECKED? 


SMARTBUFFER 


FREES PRINTER BOUND SYSTEMS 


The Smartbuffer is an intelligent, buffered 
interface that rapidly accepts data from 
the computer or modem and then goes 
Off-line to drive the printer. The computer is 
now free. 


S MARTEUF EA eee a s 


INTELLIGENT 


CODE CONVERSION, SOFTWARE 
ROUTING, SINGLE SHEET, 
CHARACTER COMPRESSION 


The Z80 microprocessor based system 
comes preprogrammed as a large buffer. 
Simply plug the SMARTBUFFER in between 
amodem or dedicated line and a termin- 


DATA-MATCH CORP. 


al/printer or between a micro or mini and 
amodem or printer. The SMARTBUFFER also 
recognizes a series of commands which 
allows code conversion tables to be easily 
loaded, (i.e. EBCDIC to ASCII or ASCII to 
BAUDOT), remote steering of input files to 
different output ports, remote reset to clear 
the buffer and remote setting of USART 
parameters. 


BUFFERED 


Memory is user upgradable. Any 16k unit 
can be field upgraded to 32k by adding 
another row of 16k RAM chips. The same 
unit can be upgraded to 64k or 128k by 
replacing the 16k chips with 64k RAM 
chips. Only one type of RAM chips may be 
used on one card at a time. 


INTERFACE 


Serial to parallel, parallel to serial, baud 
rate, XON, XOFF or DTR, and character bit 
length conversion allows interfacing in- 
compatible equioment. Multiport models 
allows more than 1 computer to be con- 


nected to more than 1 peripheral. Serial 
ports are each full duplex and are design- 
ed to accept external clocks for syn- 
chronous operation. 


Based on the powerful and popular Z-80 
microprocessor, 2716 ROM, 8251 USART 
and other standard TIL component, the 
Smanrtbuffer is easy to program and repair. 
A special command allows user programs 
to be easily downloaded into the Smart- 
buffer and execution turned over to this 
software. ROM |/O and memory manage- 
ment routines may be called as subrou- 
tines. 


Break your |/O bottle necks with a Smart- 
buffer. 


3810 Oakcliff Industrial Court 
Atlanta, Georgia 30340 @ (404) 441-0408 
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The CP’M Bus 


by Anthony Skjellum 


Using C Instead of Assembly Language 


y Foes system soft- 
ware and utilities for the 
CP/M operating system have 
been written in 8080 or Z80 as- 
sembly language. This was a 
natural starting point, since 
high-level language compilers 
did not exist for CP/M when it 
first appeared. Today, pro- 
grammers may choose one of 
several such compilers instead 
of assembly language. The C 
programming language is an 
excellent choice for many types 
of utilities and reduces both de- 
velopment and debugging times 
relative to those for assembly 
language. Furthermore, the re- 
sulting software is more easily 
maintained and enchanced. 

Familiarity with the C lan- 
guage will be assumed. For fur- 
ther information, the reader 
should refer to The C Pro- 
gramming Language by Ker- 
nighan and Ritchie, published 
by Prentice-Hall. The Nov/Dec 
1981 issue of Microsystems 
(Vol. 2, No. 6) also contains a 
section on the C language that 
should prove instructive. 


Parameter Manipulation 
Most utility programs require 
one or more command line pa- 
rameters. These parameters of- 
ten include file names and/or 
flags to direct the details of ex- 
ecution. Parsing the command 
line can be a formidable job if 
a variable number of parame- 
ters is possible and the com- 
mand line is not strictly of a 
fixed format. In C, simple com- 
mand line processing is quite 
straightforward. The variables 
arge and argy allow direct ac- 
cess to preparsed strings. Alter- 
natively, parsers may be 
created to provide extremely 


general command line process- 
ing (see my article, “Argum: a 
C Command Line Processor,” 
in the May 1982 issue of Dr. 
Dobb’s Journal). In either case, 
the programmer’s task is much 
simpler than in assembly lan- 
guage. 


Format Conversion 
Format conversions are the 


bane of the assembly language 
programmer. The need for con- 
versions is obvious: utility pro- 
grams must deal with input 
data and produce output which 
often will contain data in a dif- 
ferent form. In C, powerful in- 
put conversions and output for- 
matting are available through 
the standard scanf and printf 
functions. 


Debugging 

The printf function also pro- 
vides an effective means of de- 
bugging. The function may be 
used to display crucial informa- 
tion during execution. It is de- 
sirable to the same in assembly 
language, but it can be done 
far more readily in C. 


String Manipulation 
String manipulation in C acts 
either on a character array or 
on a string unit. Functions are 
provided to perform various 
types of string manipulation, 
including concatenation. This 
leads to programs that detect 
and handle illegal data intelli- 
gently. 


File Access and 
Processing 

The assembly language pro- 
grammer is faced with further 
frustration when it comes time 
to access data from mass stor- 


age. Data must first be buf- 
fered for reading and writing. 
Macros do exist for handling 
buffered sequential input /out- 
put (e.g., SEQIO.LIB), so this 
process is not as difficult as it 
could be. However, file process- 
ing under C is especially con- 
venient and transparent to the 
programmer. Most often, the 
program deals with the file 
name in its string format only; 
runtime routines handle conver- 
sion to FCB format. 


Calculations 
C provides operators to perform 


the same basic types of opera- 
tion that are often performed in 
assembly language code. In- 
cluded are logical AND, OR, 
and exclusive-OR. Further- 
more, increment and decrement 
operators are available. Many 
of the available compilers per- 
form some degree of code op- 
timization so that C calcula- 
tions are not excessive expen- 
sive in terms of execution 
speed. 


Pointers 
In 8080/Z80 assembly lan- 


guage, the 16-bit register pairs 
BC, DE, HL, SP (and index 
registers IX, IY in the Z80) 
may be used to point to loca- 
tions within the 64K memory 
map. One can think of these 
registers as pointers in a low- 
level sense. In C, pointers ulti- 
mately refer to a specific type 
of variable, structure (a user- 
defined variable type) or union, 
and may have more than one 
level of indirection associated 
with them (e.g., a pointer to a 
pointer to an integer). Since an 
array name is itself a pointer, 
array and pointer references 


33 


may be intermixed for conve- 
nience. Finally, arithmetic on 
pointers takes into account the 
size of the object to which they 
point, so the programmer need 
not worry about this. 


Program Structure 
C is a block-structured lan- 


guage which encourages struc- 
tured and modular program- 
ming. Programs are generally 
indented to indicate the level of 
block depth at any given point. 
When combined with explana- 
tory comments, a C program 
will generally be more readable 
and maintainable than the 
comparable assembly language 
program. 


Local Variables 
In normal assembly language 


environments, all variables are 


BDOS ERROR 
ON B:BAD SECTOR 


Before disk errors ruin your work again order BADLIM. 
® BADLIM assures the reliability of your CP/M 


computer. 


s You can use your disks 10 times longer without 
losing your data AND your time. 

® BADLIM checks thoroughly your disk marking all 
the blocks which have defective sectors. The 
Operating system will know that those sectors 


should be skipped. 
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global. That is, they are de- 
fined at assembly time and 
consume memory space 
throughout the execution of the 
program. In C, both global and 
local variables are supported. 
This permits temporary data to 
be exactly that: Once a piece of 
information is no longer 
needed, it may be discarded. 
Local variables are generally 
automatic. This means that 
they are allocated upon entry 
to a function and are deallo- 
cated upon exit from that func- 
tion. A full C implementation 
permits static variables which 
retain their values between ex- 
ecutions of the subprogram or 
function in which they are de- 
clared. Most subset C compil- 
ers do not support static vari- 
ables. In any case, one does not 
normally. use a static variable 


for temporary data, since it 
takes up space throughout ex- 
ecution of the complete pro- 
gram. 


Dynamic Allocation 
A second type of temporary 


storage is also available in 
many C implementations. This 
is dynamically allocated stor- 
age. This type of storage is re- 
quested through a special func- 
tion call, calloc, which provides 
a pointer to a block of memory 
of the requested size, if possi- 
ble. When the program has fin- 
ished using the block, the stor- 
age may be deallocated for lat- 
er use as part of another dy- 
namically allocated block. The 
dynamic allocator handles all 
the specifics of the operation, 
and the program merely re- 
quests allocation and dealloca- 


® BADLIM is the only program that gives protection 
for soft and hard errors. 

® The first time BADLIM will list which files in your 
disk are on bad sectors, so you can take action to 
correct it. 

® But thereafter the bad areas in your disk will be 
automatically by-passed. 

® For CP/M 1.4 single density and for CP/M 2.xx of 
any format and density. It is a must for Winchester 
as the media cannot be replaced. 


Q/C leads the pack of C compilers for CP/M. For only 
$95 you get an excellent compiler that is fully supported. 
And Q/C includes the full source code to the compiler! 
The 88-page manual sets standards for readability and 
clarity. (There is even a chapter on compiler internals.) 


Get in front of the pack: write for details of the new 
Version 1.1 of Q/C. 


tHECODE Santa Barbara, CA 93111 


WORKS (805) 683-1585 


CP/M is a trademark of Digital Research. 


5266 Hollister 


BADLIM cost only $73. Whatever the reason you have Suite 224 


to use a computer you need BADLIM. Contact your 
dealer or call us today: 
BLAT R&D Corp., 8016 188th. St SW, Edmonds 


WA 98020. Phone:[206] 771-1408 
o. BADLIM 


DEALER INQUIRIES INVITED. 
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tion as needed. This type of 
storage can be accessed by var- 
ious program levels merely by 
supplying the block’s attributes 
(i.e., starting address and 
length). These may be kept in 
global variables or passed to a 
subroutine as a pair of parame- 
ters. If originally allocated by a 
subprogram, the storage does 
not automatically disappear 
upon exit from that subpro- 
gram; a specific deallocation 
request is required to free the 
space. 


Global (External) 


Storage 
External or global variables are 


analogous to variables defined 
in an assembly language pro- 
gram. They are available to the 
main program and to subpro- 
grams. As in assembly lan- 


CUSTOM 
PRODUCTS 


DESIGN « LAYOUT 
MANUFACTURING 


3 


64K STATIC RAM 
FULLY STATIC MEMORY 


SPECIALIZING IN 
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guage programs, external vari- 
ables contain flags and other 
information needed often 
enough throughout the program 
that it would be extremely inef- 
ficient to pass them as parame- 
ters to the various subprogram 
levels. 


Redirection of Input/ 
Output 

Many CP/M-based C imple- 
mentations support an impor- 
tant feature derived from the 
Unix environment. This is the 
ability to redirect standard in- 
put and output streams (nor- 
mally directed to the console 
input and output) at execution 
time to either disk files or other 
CP/M I/O devices. Another 
feature, called piping, allows a 
chain of modular programs to 
work on one stream of input 


BUILDING BLOCKS 
FOR 


data and produce a single out- 
put stream. Generally, assem- 
bly language programs will not 
support this feature unless they 
make use of a powerful soft- 
ware library such as that pro- 
vided with Knowlogy’s Unica/ 
XM-80 package. 


Additional Comments 
We have outlined some of the 


reasons that programmers 
should choose C over assembly 
language. It should be stated 
that in certain cases programs 
will require an execution speed 
that only directly coded assem- 
bly language can provide. In 
such cases, the programmer 
may be forced to use assembly 
code instead of C. Alternative- 
ly, the critical parts of the code 
may be written in assembly 
language and then linked to a 


S-100 
PRODUCTS 


TABLE TOP 
MAINFRAMES 


MICROCOMPUTER SYSTEMS, 
DEDICATED CONTROLLERS 
AND TEST EQUIPMENT 


CARD CAGES, POWER SUPPLIES 
MAINFRAMES, CPU’S, MEMORY 
1/0, OEM VARIATIONS 


ELECTRONIC CONTROL TECHNOLOGY, INC. 


763 Ramsey Ave., Hillside, NJ 07205 (201) 686-8080 


MULTIBUS* 
PRODUCTS 


MULTIBUS IS A TRADEMARK OF INTEL CORP. 


QUALITY 


MICRO COMPUTER 
HARDWARE 


CIRCLE 65 ON READER SERVICE CARD 


Coming Next Month 


Ada Tutorial Part Il by Mark Zeiger 


Review of the JANUS Compiler by Harvey Fishman 


The CP/M Bus 
continued . . . 


main program written in C. 
For most applications, pro- 
grammers will find that they 
are able to produce more intel- 
ligent software with better hu- 
man engineering by using C. 


Three More C Compiler Reviews by David Gewirtz 


Comparison of CP/M and MSDOS by Steven Leibson 


A Virtual Disk Facility for N° DOS by D. J. Anderson 
Review of 26MB Hard Disk by Paul Earley 


Turnkey + _ by James Offenbecher 


And much more, including 


our usual Departments and Columns 


CP/M SUMMARY GUIDE 


Tired of fanning through your CP/M manuals or writing 
notes that remind you of the commands, functions and 
error codes? Well it’s about time you ordered our CP/M 
Summary Guide! Spiral bound and 

handy to hold, our guide is a 60 

page booklet summarizing the 

features of CP/M (Ver. 1.4 & 2.X) 

and 2 totally alphabetical listings ~ 

of the commands, functions, 

statements and error codes of 

MICROSOFT _BASIC-80 Ver. 5.0 

and CBASIC™ .2. Areas 

summarized are in table form 

and include all direct and 

transient commands plus 

MAC™, DESPOOL™ and 

TEX™. Our booklet is a much 

needed supplement to any of 


the literature currently 
available on CP/M and has 
been recommended by Digital 
Research. 


P.S. Over 4000 users can’t be 
wrong! . 


Ask your local computer store for our guide or send $6.95 
plus $1.00 (postage and handling) to: 


THE ROSETTA STONE, P.O. BOX 35, GLASTONBURY, CT 
06025 (203/633-8490) 


State Zip 


CP/M™, DESPOOL™, MAC™ are registered trademarks of Digital Research. 


CBASIC™ is a registered trademark of Compiler Systems. 
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Conclusion 
The C language provides a via- 


ble alternative to assembly lan- 
guage for many types of utility 
software to run under CP/M. 
It provides easier maintaina- 
bility, shorter development and 
debugging times, and better er- 
ror detection/reporting mecha- 
nisms. 

The next several CP/M Bus 
columns will deal with code re- 
location. I shall be dealing with 
single modules that can be di- 
rectly loaded to various bound- 
aries, as well as modules to be 
linked together. 


With Timin FORTH, the unusually fast, elegant and versatile superset of 
FIG FORTH. 


Lifeboat Associates offers this powerful, threaded, interpretive and struc- 
tured language including a memory resident operating system, text editor, 
assembler and debugger. This extended FORTH is also enhanced by: 

a visual screen editor with string search and replace 

CP/M-80 file format compatibility 

many additional FORTH words 

array handling (implemented in machine code) 

FORTH assembler for 8080/Z80T™ machine instructions 

full floating-point capability 


Use this complete interactive software development system to slash soft- 
ware development time and shrink system memory requirements. 


For more information about Timin FORTH or any of the other 200+ soft- 
ware packages available for use in professional, personal, and program- 
ming environments under SB-80TM or other CP/M® -80 compatible 
operating systems, IBM PC DOS, or MSTM-DOS (SB-86) contact: 


Lifeboat Associates, 1651 Third Avenue, NY, NY 10028. (212) 860-0300. 
TWX: 710-581-2524 (LBSOFT NYK); Telex: 640693 (LBSOFT NYK). 


SB-80, SB-86, trademarks Lifeboat Associates 
MS, trademark Microsoft, Inc. 

Z80, trademark Zilog, Inc. 

CP/M, registered trademark Digital Research, Inc. 
Copyright©1982, by Lifeboat Associates 
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1/4 Megabyte $1495 


OVERVIEW 


The BSR 64/256 is an 8 bit bank selectable dynamic random ac- 
cess memory card designed to operate in a Z-80 based S-100 com- 
puter system with a CPU clock frequency of up to 4 MHz(A model) 
or 6 MHz(B model). 


Individual 64K banks are selected via the IEEE 696 8 bit address 
us extension. If the host system is not capable of driving the ex- 
tended address bus, one of the BSR 64/256 cards in the system 
may be configured to drive it through an onboard latched output 
port. 


System area is allocated in 4K blocks by writing a system mask 
out to two latched output ports. Another port allows any one of up 
to eight cards to be assigned as the current system master. 
Logically, up to 64 cards may be addressed in a single computer 
system. 


Assembled & Tested Boards 
(4164) (C4 Roar cters ase ore crass crcvorssweans. cuzin ahammar 


FDC 4000 


14” Winchester Fixed Disk Controller 


Controls Shugart 4000 & 4100 series drives 
Up to 174 megabytes per controller 

1/0 mapped buffer - no wait states 
Includes MP/M* XIOS & CP/M* CBIOS 


Assembled & tested .... 0.2.0... cee eee ee 


erritttitira 


FEATURES 
MAX STORAGE 


BLOCK SELECTION 


256k bytes (32 ea. 64k X 1 chips). or 
64k bytes (32 ea. 16k X 1 chips) 

Any combination of 4k blocks in any 
64k bank, software selectable 

Any combination of 4k blocks in low 
order bank of current system master 
card, software selectable 

Any one of up to 8 cards software 
selectable, one card jumper selec- 
table for system power-up or reset 
Logically, up to 64 64k or 256k cards 
Uses or implements IEEE 696 (S-100) 
extended address bus 

4 MHz or 6 MHz with no wait states 


Invisible 
4 Consecutive ports for entire 
system, selectable on any 4 port 
boundary 


SYSTEM AREA 
SYSTEM MASTERS 


CARDS/SYSTEM 
BANK SELECTION 


CPU SPEED 


REFRESH MODE 
OUTPUT PORTS 


CONTROLLER & SUBSYSTEM 


29 Megabyte Disk Subsystem $3840 


The fixed disk subsystem includes a 29 million byte Shugart fixed 
disk (SA 4008), and an assembled and tested S-100 disk controller 
(FDC 4000). Also included is an unfinished rack mountable 
aluminum case, punched and ready for assembly. To complete 
this kit we have included power supply, fan, wiring harness, signal 
cable, and MP/M* XIOS and CP/M* CBIOS. 


(SA 4008) (Assembled Subsystem) 


“Contact Us For More Information” 


YTEMS 5232 Manzanita Ave. 


Price subject to change 


Carmichael Ca 95608 (916) 338-5454 


*Trademark of Digital Research 
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The S-100 Bus 


by David J. Hardy 


ave you ever thought about bringing up 

MP/M on your machine? Or wanted to 

add some timers or a real-time clock? If 

your CPU board already has a CTC or 
two, then a few lines of code may solve your prob- 
lem, but if you are one of those unfortunate souls 
(like me) who is without CTCs, you might like to 
try using an 8253 timer instead. 

At first glance, a CTC would seem the best 
choice for a programmable timer, but a closer look 
reveals that the CTC requires some signals from 
the CPU IC itself, and that only a Z80 IC can be 
readily used. Besides, few CPU cards have enough 
leftover space to allow the kludge or wire-wrap in- 
stallation of such a large IC. 

The 8253, although just as large, does not re- 
quire “special’’ (non-S100) signals from the CPU, 
and can be easily mounted on an S-100 wire-wrap 
card. There are a few limitations to the 8253, such 
as its 2MHz maximum clock frequency, and it 
isn’t quite as versatile as the CTC, but (with 
maybe a bit of extra code) the 8253 can do most of 
the things the CTC can. 

The 8253 contains 3 separate 16-bit timers, 
each with its own external clock input, control 
gate, and output. A single timer in the 8253 may 
be used to cause some external event, like sending 
a pulse to a printer, or turning on a LED, by sim- 
ply connecting its output line (OUT1-3) to a prop- 
er TTL driver stage. In addition, a timer may be 
started and stopped by using its external gate in- 
put. A timer may also be used to generate inter- 
rupts by connecting its output to an open collector 
TTL buffer, and connecting the buffer’s output to 
the S-100 bus INT* line (pin 73). INT* is an in- 
put to the CPU that can be pulled low by any S- 
100 card to cause an interrupt. 

Each timer in the 8253 can be programmed in 
one of six different operating modes. These include 
the ability to make each timer look like a down- 
counter, a programmable one-shot, a rate genera- 
tor, a square wave generator, a software-triggered 
strobe, and a hardware-triggered strobe. In addi- 
tion, the timers can be made to count in binary or 
BCD. Complete programming information is 
available in the Intel 8253 product description, or 
the Intel Component Data Catalog. 


David J. Hardy, 736 Notre Dame, Grosse Pointe 
MI 48230 
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The wire-wrap circuit shown in Figure | is sim- 
ple and straightforward. I used the same decoding 
and bus interface circuits that Fred Deadrick used 
in his article about the MSMS5832 clock (“An S- 
100 Clock Calendar Circuit,” Microsystems, Jul/ 
Aug 1981). ICI is a 6-bit comparator that enables 
the 8253 and its bus drivers [C2 and IC3 whenever 
the proper address is selected, and whenever the 
sINP or sOUT signals say that PORT type I/O 
(as opposed to MEMORY type I/O) is being 
done. When the proper address is selected, and 
PORT type I/O is determined, pWR* and 
pDBIN tell the bus drivers and the 8253 to read 
from or write to the bus. The 8253 itself decodes 
two more address lines to find out which of its four 
ports is actually being selected. 

It may sound complicated, but it’s actually very 
simple, and it all happens in less than a few micro- 
seconds in a typical S-100 system. The 8253’s 
clock inputs can be from any TTL source, but the 
maximum input frequency must be 2MHz or less. 
The S-100 bus conveniently provides a 2MHz 
clock line (pin 49) that is used here to drive the 
clock input of each of the 8253’s three timers. 
However, a timer could also be used as, say, an 
event counter, by connecting the event signal to its 
clock input. 

One thing that the 8253 can’t provide as easily 
as the CTC is vectored interrupts. If you use the 
8253 to generate interrupts via the INT™ line, it 
will only be able to generate a simple maskable 
interrupt request. In most systems, this would be 
equivalent to an RST 7 instruction, which would 
cause the processor to push the PC onto the stack, 
and then jump to address 38H. 

I say most systems, because this type of inter- 
rupt actually just causes the CPU to expect some 
external device to cram an instruction onto the 
data bus for it to interpret. A vectored interrupt 
system, for example, might place a jump (OC3H) 
instruction onto the bus, except that a jump re- 
quires two or three bytes. The RST instructions 
were invented just for this reason. They require 
only a single byte, and so they can be crammed 
onto the data bus during an interrupt, and cause a 
jump to an address in page zero of memory. Since 
there is no logic here to cram anything onto the 
bus when an interrupt occurs, the CPU (assuming 
the data lines are not being pulled down by some 
other board) will “‘see” all one’s on its data lines 


during an interrupt. All one’s (i.e. OFFH) just 
happens to be the code for RST 7. Clever, those 
folks at Intel... . 

The Z80 CPU is a bit safer to use this way than 
an 8080 or 8085, because when used in interrupt 
MODE 1, it will always “‘see” an RST 7 during an 
interrupt request. 

The program in Listing 1 is a simple test and 
demonstration program that should give some idea 
of the general coding required to use the 8253 asa 
timer. Basically, it sets up one of the 8253’s timers 
to generate an interrupt, then reports to the con- 
sole if that interrupt occurs. The same basic oper- 
ations used in this program can be used to imple- 
ment interrupts in an MP/M system, or provide 
programmable time delays. 
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Figure 1 


This column is the first of what I expect will be 
a regular column in Microsystems. The column 
will serve as a forum on S-100 topics. I encour- 
age readers to send in any questions about the 
S-100 bus, which I will attempt to answer in 
this column. The questions should, in general, 
be directly related to the hardware structure 
and timing of the bus, though some software 
may also be involved. Questions could be gener- 
al ones about interfacing to the S-100 bus, or 
specific ones about problems encountered in 
trying to interface a specific product. Until 
some questions are received, here is an S-100 
circuit that you may find interesting. 
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PROGRAM 

sets up and tests 8253 counter #0 to see if interrupt 
hardware is working. Prints a message telling if it 
does or doesn't work. 


This 
each 
8253 


will send the message “Interrupting” to the console 
interrupt request is generated by the 8253. If the 
is working properly, ten interrupts should occur. 


program 
time an 
circuit 


Define 8253 ports base (as determined by the comparator IC's switches) 
EQU 70H 


Define 8253 ports 
EQU PBASE 
EQU PBASE+1 
EQU PBASE+2 
EQU PBASE+3 


7Counter 0 I/O 
;Counter 1 I/O 
7Counter 2 I/O 
7Control Port 


Define some BDOS values 
EQU 5 7BDOS JMP address 
EQU 9 7BDOS Print String function 


Set origin to 100H for standard CP/M 
ORG 0100H 


handler 
A,OF3H 
003 8H 
A,0C3H 
0039H 

H, PRNTIT 
003AH 


in page 0, address 38H 


Set up RST 7 
7Store a DI instruction at RST 7 address 


Initialize pass counter to 10 (this is the number of times to interrupt) 
MVI A,OAH 
STA 1000H 


Set up Counter 0 to as a rate generator for a 17mS countdown 
This will make the counter run forever issuing a pulse every 17mS 
(Note that another popular way to do this is to set up the counter 
as a down-counter, then have the interrupt handler reload the counter 
after each interrupt.) 

MVI A,348 7Select Counter 0, Mode 2, Binary decrement 

out CTRL 


MVI A,34H 7Load down-counter with 8234H for 17mS @ 2MHz 
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7Then store a JMP to the interrupt handler subroutine 
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Now wait for 


LXI 
MVI 
CALL 


NOLLWYlSsnda 


?Counting starts automatically after this OUT is done 


7Enable interrupts 
an interrupt to 
D,WAITMSG 
C,PRINT 

BDOS 


happen... 
7Say that we're waiting... 


Waste time forever, checking if done, until an interrupt occurs... 


MORE 


LDA 
CPI 
JNZ 
DI 
LXI 
MVI 
CALL 
JMP 


Interrupt 


; 

; 

PRNTIT PUSH 
PUSH 
PUSH 
PUSH 
LXI 
MVI 
CALL 


routine to 


1000H 
0 
MORE 


;Check pass counter 

7If not zero, then continue 

7Jump if more passes to go... 

Else disable interrupts (counter is still going...) 
D, RETMSG 7Say that we're returning to CP/M... 
C,PRINT 
BDOS 

0 7Then return to CP/M via a warm-boot 

tell us when an interrupt has occurred 

PSW ;Save all registers so they will be unchanged 
: ; after we return from interrupt 

B 

D, INTMSG 
C,PRINT 
BDOS 
1000H 

A 

1000H 


#Say that interrupt has- just happened 
;Decrement pass counter 


7Restore all registers to their original states 


7Re-enable interrupts for next time 


Status messages 


WAITMSG DB 
INTMSG 
RETMSG 


DB 
DB 


END 


‘Waiting for interrupts...',0DH,OAH,'S' 
‘Interrupting',ODH,OAH,' 


‘Returning to CP/M...$' 
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Are you getting the most from 
your business computer? 


Get the best source of information available on microcomputer use: 


I pays to consult Small Business 
Computers before you or your 
company expand your software 
capabilities, look at new peripher- 
als, or even consider your first 
office microcomputer. 

Here's why: 

We write only for people who 
are professionally involved with 
business microcomputer systems. 
You won't find any space games or 
home budget programs in our 
pages. 

Instead, you will find feature 
after feature on business hard- 
ware and software, 


plus applications you 
can use right now, and later as 
your needs grow. 


SMALL BUSINESS COMPUTERS 
critically reviews a variety of 
software packages for: 


@ Accounting 

= Word processing 

= Data base management 
= Business planning 

@ Financial modeling 

@ Spreadsheet analysis 

@ File and record handling 


—and much more, from list 
management to project control. 


Small Business Computers 


You'll also evaluate a wide 
range of hardware and peripher- 
als, including video display ter- 
minals, disk storage equipment, 


computer system. Now for the 
“cost” part: You can subscribe to 
Small Business Computers for as 


little as $14.97 and save 25% off the 


full 12-issue subscription rate. Or 


take 24 or 36 issues and save up 
to 35%! 


printers (dot matrix and daisy 
wheel) and modems. 

Every evaluation and review 
in Small Business Computersis —; 
conducted by our own panel of 21 / = 
top computer-science experts. / Re 
What's more, Small Business = 
Computers comes to you 
from the publishers of 
Creative Computing, the 
Number One maga- 
zine of computer 
applications and soft- 
ware. All of which 

means we have the 

expertise and resources 

to guarantee that you get 
the most authoritative, 


up-to-date analyses 
re . . 
and advice available Whatever your level of involve- 
anywhere. ment with business microcom- 
Cost effectiveness: puters, it makes sense to get the 


best source of practical informa- 
tion around. Why not take a 
moment to fill in and mail the cou- 
pon now? 


high value plus low price 

You can see why Small 
Business Computers will be 
extremely effective in helping you 
get the most from a business 


Your subscription to 
SMALL BUSINESS COMPUTERS may be tax 
deductible. Check with your accountant. 


: = SMALL 2 
BUSINESS I COMPUTERS | §N,!928. Marigown- 
YES! Enter my subscription to 

SMALL BUSINESS COMPUTERS for: 

0 12 issues at $14.97—I save 25%. 

0 24 issues at $27.97—I save 30%. 


| 

| 0 36 issues at $38.97—I save 35%. CHECK ONE: | 
Savings based on full 12-issue subscription rate of $19.97. B ren — | 

| Ofer valid in U.S. and possessions only. Please allow 30 to 60 O Pure Se Orcenenc 4 | 
days for delivery of first issue. O Bill me later. 8HO4 

| NAME | 

(please print full name) 

| COMPANY _— a ie et ee te | 

| ADDRESS _ l 
CITY —e STATES =< ZIP 


Innovations in 
High-Level Language 


A concise history of computer languages that have led 
to the current state of affairs, and where we are going 


by Don Libes 


re you dismayed with the power of 
your current programming language? 
Can you think of “features” that would 
enhance its power or enable you to get 
your job done more quickly? If your ideas are ap- 
plicable for a broad range of uses, you may have 
the ability to design a new high-level language. As 
proof that one person can do it alone, consider 
Niklaus Wirth who designed Pascal, and Ken Iv- 
erson who designed APL. In most other cases, suc- 
cessful languages are designed by committee, but 
you can do it yourself, simply by capitalizing on 
the work of predecessors in language design and 
choosing what things will work well together in a 
high-level language. I am not going to claim that it 
is really possible for the amateur to be successful 
in language design, but an awful lot have tried. 

It is estimated that there are over 150 high-level 
languages in use today (perhaps in the Depart- 
ment of Defense alone). Doubtless, hundreds of 
others have been used in the past, and hundreds 
more have been proposed without implementa- 
tion. 

For most people who communicate algorithms 
with computers, the languages of importance are 
the so-called “high-level” languages. There is such 
a surprising disparity in the languages that are 
known as high-level that it is virtually impossible 
to explain the term without admitting an obviously 
deficient language such as a macroassembler, or 
excluding one as powerful as Algol (which can be 
interpreted directly on several Burroughs comput- 
ers). 

Rather than rigorously defining the term, Jean 
Sammet, an authority on programming languages, 
suggests the following characteristics of high-level 
languages: 

(1) The language does not require the user to 


Don Libes, 60 Gold Street, Rochester 
NY 14627 
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have any knowledge of machine code or machine 
characteristics. 

(2) The language is inherently independent of 
any particular computer, and hence it should be 
easy to take a program written in a high-level lan- 
guage and run it on many machines. 

(3) There is usually a one-to-many translation 
from executable elements in the source code to 
specific machine instructions. 

(4) The notation of the high-level language is 
fairly natural, relative to the problem area for 
which it is intended and it is not in a fixed tabular 
format. 

Historically, programming languages have nev- 
er Satisfied everyone in being able to state “their” 
algorithm the way “they” think is easiest. More 
important is the ability to express an efficient al- 
gorithm. Efficiency, unfortunately, can refer to 
time, program length, space (off-line, on-line) and 
a number of other interests. In the face of physical 
reality, these naturally present real tradeoffs. It is 
understandable that no computer service has ever 
stopped tinkering with its billing algorithms in an 
attempt to solve the non-truth of how many sec- 
onds a byte is worth. 

The best language is always around the corner. 
Languages have come and gone with satisfying 
alacrity. I do not hail any one language as being 
the best of all, no matter what kind of snazzy run- 
time feature I am provided with. With the satis- 
faction that we have advanced a giant step in our 
knowledge, I quote from page 2 of the Preliminary 
Report (1954) on Fortran: “ ... FORTRAN 
should virtually eliminate coding and debug- 


SINS... 


t is worth examining some of the good ideas that 
particular languages have given us. These are 
the quirks and, in some cases, the leaps in thinking 
that languages have made for us. These are the 


ideas that will affect future language designs. 

I will attempt a chronological order of presenta- 
tion. There is an inevitable blurring for languages 
such as Snobol which was reintroduced several 
times (i.e. Snobol, Snobol2, Snobol3, and Sno- 
bol4). Not all of the important ideas appeared in 
first versions; nonetheless, I tend to associate the 
first appearance of a language with the advances 
and features that characterize it. 


Fortran 

The first language to become widely implemented, 
Fortran gets the credit for many ideas in program- 
ming languages. I am continually astounded, how- 
ever, that it is still currently in use. While I can’t 
admit that the claim holds nowadays, Fortran was 
once an extremely efficient language. It had to be. 
It had to prove to many nonbelievers that pro- 
gramming could be “automated” efficiently. Nat- 
urally, there was (and remains) a sacrifice from 
the high-level language point of view, but Fortran 
broke new ground in showing that producing an 
efficient program did not require ingenious hand 
coding (except for the original implemen- 
tations!). 


Cobol 

Perhaps the most widely implemented language 
(because of its connections in business!), Cobol 
was the first language that demonstrated “porta- 
bility” through standardization. The importance 
of portability is a lesson we have still not learned, 
as is evident from the many versions of Basic 
which adhere to no standard and make portability 
a real problem. 

Cobol also showed us that just because people 
can “‘read”’ programs, does not mean they “‘under- 
stand” them. We must admire, though, Cobol’s 
English-like style in producing language forms 
such as the following: 

IFA =2,3,0r4... 
and 
IF X = 1ADD1TOZ 
IF GREATER ADD 2 TO Z 
OTHERWISE ... 


Cobol also caused the maturing of many different 


types of file access techniques. 


Algol 60 


Algol was the first attempt to create a universal 


computer language. A benchmark in language 
theory, it has been the basis of many later comput- 
er languages, including Pascal, Simula, PL/I, 
Bliss, C, Sail and many others. Algol’s most im- 
portant contribution to high-level languages was 
its notions of block structure, including nesting, 
compound statements, procedures and scoping. 
Notable also for its accidental achievements, Al- 
gol allowed recursion and parameter passing by 
name (“thunks’’). 

The use of BNF (Backus-Naur Form) in de- 
fining the syntax was a giant step and has been 
used for programming languages ever since. It is 
unfortunate that there is nothing as appropriate 
for defining language semantics. 

Algol took an attitude towards I/O that was ex- 
actly opposite to that of Cobol. I/O was defined 
not to be a part of the language proper. This, un- 
fortunately, may have led to Algol’s not being ac- 
cepted as a practical language. Instead, it has re- 
mained primarily a language for the communica- 
tion of algorithms. 


Lisp 

The premier language of the artificial intelligence 
community, Lisp pioneered computation with 
symbolic expressions rather than numbers. Using 
recursion and its fundamental datatype, a “list” 
(alias the binary tree), Lisp has enabled us to de- 
scribe anything in mathematically elegant ways. 
(Of course, some people don’t particularly care 
about elegance!) 


Lisp also initiated the study of garbage collection 
as a means of memory allocation, and passing 
functions as parameters. 


Simula 

Based on Algol, this simulation language intro- 
duced fundamental ideas on data abstraction (ob- 
jects, messages and classes). Simula provided the 
first high-level tools for handling synchronization 
and manipulation of processes as actual data in the 
language (naming, declaring, coroutining, etc.). 


Joss 

The first language designed specifically for an in- 
teractive environment (and timeshared besides!), 
Joss faced (and solved) the initial problems of 
friendly user interfaces. Though no more compli- 
cated than Basic, Joss was easy to learn and use, 
and it completely shielded the user from the harsh 


Languages have come and gone with satisfying 
alacrity . . .The best language is always around 
the corner. 
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Innovations in High-Level Language continued... 


vagaries of the computer that it ran on. It took 
special care to avoid anomalous conditions and it 
gave clear error messages. 

The first remote terminal, designed especially 
for Joss, used a two-color ribbon so that the user 
typed in green while the computer responses were 
in black! (With bitmapped screens, it is only 20 
years later that we see this old idea of disam- 
biguating roles being reintroduced!) 


Snobol 

A “socially unacceptable” language because of its 
lack of modern control structures, Snobol thrives 
nonetheless because of the power it provides in 
performing string manipulation, one way of look- 
ing at all computations. Snobol’s most ingenious 
concept is that of the “pattern” datatype (which I 
don’t have the space to give justice to here). 

Snobol treats strings as scalars in contrast to 
other languages that handle strings as arrays of 
characters. Snobol “tables” are a natural conse- 
quence of this idea, allowing indexing by strings 
(intuitively akin to maintaining a symbol table). 
For example: 

color<'elephant’> = ‘grey’ 
The language is absolutely full of wild and incred- 
ible ideas. Heterogeneous arrays, delayed execu- 
tion of expressions, and run-time compilation 
made their first appearance in Snobol. 

One must also wonder at the internal consisten- 
cy of the language—the first usable implementa- 
tion (1963) of Snobol took “about three weeks,” 
demonstrating that high-level language design 
does not necessarily have to be such a very costly 
undertaking. 


PL/I 

“Tf it was felt that a facility was useful and could 
be compiled . . . it was added to the language.” 
This statement from George Radin (IBM) ina pa- 
per on the early history of PL/I explains why 
many have called the language a “100-bladed 
Swiss knife.” 

This language showed us that having “‘every- 
thing” was not the solution. A representative of 
what can go wrong when you “design by commit- 
tee,” PL/I had everything including a myriad of 


datatypes and their implicit conversions, the inter- 
actions of which surely accounted for much of its 
apparent complexity. 

The official manuals for PL/I were thick and 
dense, but if you were the type of person who loved 
to impress your friends with really arcane knowl- 
edge, you could find such gems as the 26 ON- 
conditions for interrupts (surely the nemesis of any 
optimizing compiler) or the Sterling declaration 
should you quickly need to determine the total of 
your British and US assets! 


Basic 

I’m sorry, all you Basic fans. There just wasn’t 
anything new about Basic. It was a combination of 
several languages, particularly Joss and Fortran. 


APL 

As with Lisp and Snobol, APL views the world in 
its own consistent way, via the array. By choosing 
the array as the primitive datum, APL functions 
can internalize the control structure of an APL, 
thereby allowing the language to be interpreted ef- 
ficiently (which is fortunate since it is difficult to 
compile). 

APL makes use of an unusual character set and 
an unusual rule for precedence in the face of com- 
plicated choices of precedence and associativity 
for primitive functions (e.g. Snobol has 15 levels of 
precedence). APL’s simple rule is that execution is 
from right to left except when overridden by par- 
enthesis. 


Smailitalk 

With heavy influence from Simula, Smalltalk pro- 
vides a consistent treatment of the programming 
environment in an object-oriented system. Not 
only are the classes of Simula objects in Smalltalk, 
but so are all data structures and control struc- 
tures. Smalltalk also expresses relations between 
classes and includes ideas such as metaclasses 
(classes that describe classes), and inheritance of 
classes. 


Pascal 

Based primarily on Algol, Pascal was designed to 
be a language suitable for teaching, efficient exe- 
cution and reliability, the last of which it innov- 


Shakespeare on CP/M compilers: 
“They have been to a great feast of languages 
and have stolen the crumbs.’’ 
(Love’s Labours Lost, Act V, Sc. I) 
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MICROCOMPUTERS 


THE CHOICE 
JUST GOT EASIER! 


PR | CE $4390 Gets you a Tec-86 Complete 16 Bit 8086 System, including 64K Bytes of Memory, Dual 8 Inch Double Density 
Floppy Disks, and more. . . (See complete Tec-86 specs below.) 


p 7 Ri FO G MA N CE Faster Processing, Increased Address Space, up to One Megabyte of available memory, and the Increased 


throughput of the the TEC-86 16 Bit System means that you can now do work on a microcomputer never before 
practical with the slower 8 Bit systems. 


SO FTWARE CP/M-86™ Brings the World of CP/M software up to the 16 bit systems. BASIC-86™, MS-Fortran™, MS-PASCAL™ 
are just a few of the Languages currently available. 


EX PAN SION Memory Expansion up to ONE MEGABYTE. Disk Storage can be increased to over 30 Megabytes with our 
Winchester Disk Subsystem. Multi User Systems available soon! 
QUALITY Full ONE YEAR WARRANTY is standard on TECMAR components. This Warranty is possible due to our High 
Engineering Standards, and Thorough Product Testing. 


DELIVERY We have been delivering 16 Bit Boards and Systems for nearly two years. Most orders are shipped from stock or 
within 30 days. 


$100 A/D $765 $4390 TEC-86 $4390 NEW — 64K/256K 


Analog to Digital Converter | 16 BIT 8086 MICROCOMPUTER SYSTEM aM rahe i 
with Timer /Counter FEATURES: 5 MHz 8086 CPU * 64K Bytes RAM * S100 IEEE-696 * Dual 8 $595/$1695 
12 Bit Accuracy, 16 Channels, Inch Double Density Floppy Disk Drives * Two RS 232 Serial Ports, 50 to | 8 and 16 Bit Transfer for 8 and 


30 KHz Conversion, Five 
Programmable Timer/ Counters for: 
Time of Day 


16 Bit Systems 
MP/M and MP/M-86 Compatible, 
penne : Assembled and Tested * OPTIONS: Up to One Megabyte of Memory, Up to 7 users on one 256K board. 
Triggering Conversions Double Si 4 : ie Parity Detection with Interrupt 
Counting Conversions ouble Sided Double Density Floppy Disks * Up to 31 Megabytes of | ong LED Indication 
Counting External Signals Winchester Fixed Disk Storage. * CP/M-86 * BASIC-86 * MS-FORTRAN * } Hardware Write Protect 
Interrupting the CPU MS-PASCAL * CBASIC/86™ * PASCAL/M86™ Full DMA Capability 
Options: Programmable Gain; 24/20/16 bit Address Decoding 
14, 16 Bit Accuracy; $ 1 0990 TEC-86W $ 1 0990 Enable /Disable 8K/32K Segments 
40, 100, 125 KHz Conversion; | Same Great Features as our TEC-86 except that the TEC-86W has 256K of } Bank Select in 8K/32K Segments 
Expansion to 256 Channels RAM, and our 31 Megabyte Winchester Disk Subsystem. Meets IEEE-696 Specifications 


19200 Baud * Three Parallel Ports * ROM Boot for CP/M-86 * Heavy Duty 
Power Supply * Attractive Industrial Quality Desk Top Cabinet * Completely 


See our catalog for many other fine S-100 and Apple Boards including: — Analog to Digital 
Converters (16-256 channels; 12, 14, or 16 bit accuracy; 30, 40, 100, or 125 KHz; programmable 
gain; timer/counters) — Digital to Analog Converters (12 bit accuracy, 3 microsecond conversion) 
— 8086 CPU Board — I/O Boards — 16K Static RAM — Real-time Video Digitizer and Display. 


CP/M MP/M CP/M-86 and MP/M-86 are trademarks of Digital Research Inc BASIC-86, MS FORTRAN and MS-PASCAL are trademarks of MicroSoft Inc 
PASCAL/M86 is a trademark of Sorcim CBASIC/86 is a trademark of Compiler Systems Inc 


' DEALER INQUIRIES INVITED 
AR TECMAR, INC. 


No. ? 23600 Mercantile Rd. © Cleveland,OH 44122 (216) 464-7410 


CIRCLE 33 ON READER SERVICE CARD 


PRIORITY ONE ELECTRONICS 


te tx CompuPro™ ¥¢ xyz 


5 REASONS WHY YOU 
SHOULD SPEND AN EXTRA 
5¢ WITH PRIORITY ONE 


Some of you may have noticed that some other vendors have started 
to advertise CompuPro products. Frankly, we're amused that it has 
taken them this long to see that you want state-of-the-art IEEE/696 S- 
100 products, The discriminating user wants boards that meet the IEEE 
Standard, not just any board with 100 pins that is obsolete before it is 
sold. We've known this for years; that is why we have continued to grow 
while others have had to cut back. To attract your business, they try to 
copy us and cut the price, often by as little as five cents. Rather than cut 
price, we offer the best combination of price, performance, and support 
in the business. We at Priority One are proud of what we offer for that 
extra five cents. Priority One Electronics is more than just a computer 
store or mail order house — we're an Authorized CompuPro Systems 
Center. Priority One is the first place you should turn to for business, 
scientific, and industrial computing solutions. Here are just five 
examples of what that extra five cents buys: 


@ As an Authorized Systems Center, we provide custom system inte- 
gration from board level components 

@ We maintain full documentation on all CompuPro hardware and 
software 

@ We attend and hold periodic factory training seminars on CompuPro 
products 

@ We have factory trained Sales Engineers available to answer your 
questions after the sale is made. When you call Priority One, you'll 
Speak with a professional, not an answering machine or answering 
service 

@ We buy directly from the factory, not from two step distributors, so 
we're always first to receive new products and new information 
about enhancements for existing products. When we buy direct, we 
we buy in volume. Whether you need one board or one hundred, we 
can usually deliver from stock 


When you're ready for professional level, state-of-the-art micro- 
computing, turn to Priority One, the world's largest Authorized 
CompuPro Systems Center. We're ready for you. 


WW WW 


CMOS STATIC RAM 
For a complete analysis of the advantages of CMOS 
memory, see the “Product Description” on page 416 of the 

January Issue of BYTE 


RAM 17 - 64K CMOS STATIC RAM 
RAM 17, 10 MHz, 2 Watt, DMA Compatible 24 Bit Addressing 


Part No. Description Ust Price Our Price 
SIGBTI75A64 64K A&T $599.00 $550.00 
SIGBT175C64 64K CSC $750.00 $699.00 


RAM 16 - 32K x 16 BIT CMOS STATIC RAM 
8 and/or 16 Bit 
@) RAM 16 10 MHz, 32K x 16 or 64K x 8 
IEEE/696 16 Bit 2 Watt, 24 Bit Addressing 


SIGBTIB0A 64K A&T $650.00 $599.00 
SiGBT180C 64K CSC $750.00 $699.00 
NEW! RAM 21 - 128K STATIC RAM ww! 
RAM 21 12MHz, 128K x 8 or 64K x 16 WOW 
J/EEE/696 8 or 16 Bit 1.2 Amps, 24 Bit Addressin 
SIGBTIQOA 128K A&T $1695.00 $995.00 
SIGBT190C 128K CSC $1895.00 $1795.00 


STATIC MEMORY BOARDS 


RAM 20 - 32K STATIC RAM 
RAM 20 10 MHz, 4K byte block disable, bank select 
or 24 bit addressing available 8, 16, 24 or 32K 


SIGBTIGB4AA8 =8K A&T $210.00 $190.00 
SIGBTIB4AC8_ 8K CSC $280.00 $260.00 
SIGBTIGB4AAI6 16K A&T $285.00 $260.00 
SIGBTIG4ACI6 76K CSC $355.00 $325.00 
SIGBTIG4AA24 24K A&T $355.00 $325.00 
SIGBTI64AC24 24K CSC $425.00 $385.00 
SIGBTIB4AA32 32K A&T $425.00 $385.00 


SIGBTIG4AC32 32K CSC $450.00 


_ $495.00 


“100 MAINFRAME 
110V 60Hz CVT Mainframe uses famous 20 slot 
COMPUPRO Motherboard. 55 Ibs. 
SIGBTENC2ORM 20 Slot Rack Mount $895.00 
SIGBTENC20DK 20 Slot Desk Top $825.00 


$825.00 
$760.00 


CPU BOARDS 
CO-PROCESSOR 8086/8087 
16 bit 8 or 10 MHz 8086 CPU with sockets 
for 8087 and 80130 


ye 


Part No. Description Ust Price Our Price 
SIGBTI86A =A&T 8MHz 8086 only $695.00  §$ 625.00 
SIGBTI86C }=>CSC 10MHz 8086 only $850.00 $765.00 
SIGBTI86A87 A&T with 8087 option” $1295.00 $1225.00 
SIGBT186C87_ CSC with 8087 option* $1550.00 $1456.00 


*8087 Limits clock speed to 5MHz 
DUAL PROCESSOR 8085-8088 


6 or 8 MHz Provides true 16 Bit Power with a standard 
8 bit S-100 bus 


SIGBTIGIZA =A&T 6Mhz $425.00 $399.00 
SIGBTIGI2ZC §=CSC 6/8 MHz $525.00 $498.00 
CPU-Z Z80 CPU 
2/4 MHz Z80 CPU 24 Bit Addressing 
SIGBTIBOA = A&T $295.00 $280.00 

$375.00 


SIGBTI60C =CSC 3-6 MHz $395.00 


1/O BOARDS 
SYSTEM SUPPORT 1 MULTIFUNCTION BOARD 
Serial port (software prog. baud), 4K EPROM or RAM 
provision, 15 levels of interrupt, real time clock, 

optional math processor 


Part No. Description List Price Our Price 
SIGBTI62A =Assembied & Tested $399.00 $360.00 
SIGBTI626 =CSC $495.00 $460.00 
SIGBT8231 = Math Chip $195.00 
SIGBT8232 Math Chip $195.00 
SIGBTI62AM1 A&T with 8231 Math Chip $555.00 
SIGBTI62CM1 CSC w/8231 Math Chip $655.00 
SIGBTIG2AM2 A&T w/8232 Math Chip $555.00 
SIGBTIG2CM2 CSC w/8232 Math Chip $655.00 


MPX CHANNEL BOARD 
1/O Multiplexer, using 8085A-2 CPU on board with 4K RAM 


SIGBTI66A4 = Assembled & Tested $495.00 $445.00 
SIGBTI66C4 =CSC $595.00 $535.00 
With 16K RAM 
SIGBTI66A16 Assembled & Tested $649.00 $585.00 
SISBTI66CI6 CSC $749.00 $675.00 
INTERFACER 1 
Two Serial 1/O 
SIGBTI33A. =Assembled & Tested $249.00 $219.00 
SIGBTI33C CSC $324.00 $298.00 
INTERFACER 2 
Three parallel, one serial I/O board 
SIGBTISOA Assembled & Tested $249.00 $219.00 
SIGBTIS50C csc $324.00 $289.00 
INTERFACER 3 
Eight channel multi-use serial I/O board 
SIGBTI748A Assembled & Tested $699.00 $629.00 
SIGBT17486 }=©CSC 200 hr. 8 Port $849.00 $750.00 
SIGBTI745A Assembled & Tested $599.00 $559.00 
SIGBTI745C =CSC 200hr. 5 port $699.00 $629.00 

yew! INTERFACER 4 
Three Serial, 1 Parallel, 1 Centronics Parallel! 
SIGBTI87A = Assembled & Tested $350.00 $315.00 
SIGBTI87C csc $450.00 $415.00 
SPECTRUM COLOR GRAPHICS 
Color Graphics board with Parallel |/O 
SIGBTI44A = Assembled & Tested $399.00 $349.00 
SIGBT144C CSC $449.00 $339.00 
SIGBT2D Sublogic Universal $35.00 
Graphics Interpreter Software 
S-100 MOTHERBOARDS 
Active termination, 6-12-20 Slot 
SIGBTIS3A A&T 6 slot, 2 Ibs. $140.00 $126.00 
SIGBTI53C CSC 6 slot, 2 Ibs. $190.00 $175.00 
SIGBTIS54A = A&T 12 slot, 3 Ibs. $175.00 $155.00 
SIGBTI54C CSC 12 slot, 3 ibs. $240.00 $220.00 
SIGBTI5SA A&T 20 slot, 4 Ibs. $265.00 $235.00 
SIGBTISSC CSC 20 slot, 4 Ibs. $340.00 $310.00 


ACTIVE TERMINATOR 


Allows older S-100 motherboards to run faster and quieter 
SIGBTIOBA = =Assembled & Tested $59.50 


DISK CONTROLLERS 


DISK 1 FLOPPY CONTROLLER 
Fast DMA, Soft Sector, Controls 8" or 5%" Single or 
Double Density. OUR BEST! 


SIPDBTI71ACPM A&T w/CP/M2.2& B/0SS670.00 $450.00 

SIGBTI7IC csc $595.00 $555.00 

SIGBTCPMB8D* CP/M 2.2 for Z80/8085 with $175.00 
manuals & BIOS 8" S/D disk 

SIGBTCPM86 = CP/M for 8086 with manuals & $300.00 


BIOS 8" S/D disk 


. DISK 2/SELECTOR CHANNEL 
HARD DISK CONTROLLER 
Fast DMA 2 board set.Controls 4 Shugart 4000 series 
or Fujitsu 2300 type drives. includes CP/M 2.2° 
SIGBTI77A Assembled & Tested $795.00 $750.00 
SIGBTI77C CSC $895.00 $850.00 


(}) Hayes 


SIDCHOZ00P Smartmodem (Sh. Wt. 6 Ibs) $279.00 $225.00 
SIDCHO300P Chronograph (Sh. Wt. 3 Ibs.) $249.00 $205.00 
SIDCHOIOOP = Micromodem 100 (Sh. Wt 4 Ibs.)$399.00 $325.00 
SIDCH2901D CP/M® 8” Terminal Program for above $ 25.00 
SIDCHOOOOP = Micromodem |! $379.00 $299.00 
S$IDCH2401D Datacom (PASCAL patch) for above $ 50.00 

5" DISKETTES! 

s 

SOFT SECTOR 


40 TRACK SINGLE SIDED 
DOUBLE DENSITY WITH 
HUB REINFORCING RINGS 
PKG. OF 10 $19.95 


Fl 


BONUS! 


FREE! KASSETTE 10 
LIBRARY CASE WITH 


PACKAGE OF 10 DISKETTES 
A $4.25 VALUE Part No. BHPRISSDD 


SIPRIS8O package of 80 less Library Case $120.00 


SIPRI8SD package of 10 8” S.S/D.D. Diskettes no sleeves $20.00 
5 or more packages $18.00 


@ SANYO 


FCC CLASS 2 
APPROVED 
DATA DISPLAY 
MONITORS 


sat 


SPECIFICATIONS: 
Viewing Screen 


12" diagonal; 75 square inches 
DM2112: P31 phosphor 

525 lines; 60 fields/second; overscan 
600 lines, center 

1.0 volt p-p composite video; 75 ohms 


BHSYODM2112 


Scanning System 
Horizontal Resolution 
Signal Input 


List Price: $160.00 SSALE: $119.00 


OTHER SANYO MONITORS ON SALE TOO!! 


Part No. Description Ust Price SALE 

SISYOWM4509 9” B&W P4, 10MHz(15 Ibs) $215.00 $149.00 
SISYODM4508CX 9Green, P31, 10MHz (15 Ibs.) $200.00 $159.00 
SISYODM801ZC = 12" B&W P4, 18MHz(24 Ibs) $250.00 $195.00 
SISYODMB11ZCS$ 12'GReen, P31, 18MHz (24 Ibs.) $260.00 $199.00 
SISYOWMC6013 = 13’’Color, 16 x 64 (35 Ibs) $470.00 $375.00 
SISYODM6113* 13”RGB Color (35 Ibs) $995.00 $895.00 


*As used with IBM P.C. 


California Computer Systems 


SPECIAL PURCHASE!! 


SR 


@ 201 4 MHz operation 

© Designed to IEEE proposed S-100 bus standards 

@ Supports IMSAI-type front panels 

© Operates with either an 8080 or Z-80 based S-100 system 
providing processor-transparent refreshes with both 
Bank-select system allows system memory expansion 
Bank-select port's address is jumper selectable 

Any 16K block can be made bank-independent 

All 64K can be made bank-enabled on power-on and reset 
Fully buffered address and data lines 

Configuration as a 16K, 32K, or 48K board without the 
removal of RAMs 

Fail-safe refresh circuitry for extended Wait States 

Board configuration w/reliable easy-to-configure Berg jumpers 
Supports DMA 

Jumper-selectable Phantom input 

Uses Popular 4116 RAMs 

Assembled & tested 

All ICs in sockets 

Full Factory Warranty 


SICCS20653 _List Price $350.00 
SALE $249.00 ea. - 4/$880.00 


Se SELLUM 


FUJITSU FROM 
HS conceal 
LETTER QUALITY PRINTERS 


A 
Speed and Unmatched Performance 

Interfaces: @ RS232C and Current Loop @ Centronics type parallel 
interlace @ !EEE/488 All are DIP switch selectable. 

Personality Protocols: @ NEC5510 @ DIABLO 630 @ QUME Sprint9 @ 
IBM Personal Computer @ ATARI (Centronics 737) 

Special Features: @ 280 CPU @ 12K ROM @ Standard 16K Butfer @ 
Optional 48K Buffer @ 50 - 19.2K baud @ Micro-coded alarm different- 
iates error conditions with pulse combinations @ Intelligent bi-directional 
printing with logic seeking @ Complete word processing features @ Self 
test @ Auto reprint @ Auto clear error @ Proportional spacing @ 
Supports Automatic justification @ Complete Vector plotting routines @ 
Sheet feeder mode allows easy interface to most mechanical sheet feeders 
@ 6 month warrantee @ Quiet - 60db @ Front panel forms control @ 
Universal power supply 115/220V 50/60 Hz 


80 Characters per Second! 
BEST LETTER QUALITY! Wo WI 
BUY! sine THE rusntsu sps30 
Part No. List Price Our Price 
SISLMFS6 $3495.00 $2795.00 


Description 
Intelligent Printer 


OPTIONS 


SISLMF86¥FT Vertical forms tractor $200.00 
SISLMFB648K* 48K RAM buffer $300.00 
Call for pricing on sheet feed options 
*Must be ordered with the printer 
INTERFACE CABLES 
SICPAM572 Centronics IBM/NEC Cable $80.00 
S1Sc0B251 RS232C Serial Cable $60.00 


Cali for other cables not listed 


SMITH-CORONA TP- 1 


LETTER QUALITY - 
ELECTRONIC TEXT 
PRINTER i 


$649.00 


SISCMTPS10 (Serial) 


re; 
iy 
SISCMTPIP10 (Parallel) 


PRIORITY ONE ELECTRONICS 


FREE TRACTOR AND 
FREE OKIGRAPH!! 


landon 


Tandon TM-800 Thinline is 
exactly half the size 
of conventional 8” 
floppy disk drives. 


Exactly one-half the height of any other model. 

Proprietary, high-resolution, read-write heads patented 
by Tandon 

D.C. only operation - no A.C. required 

Industry standard interface. 

Three millisecond track-to-track access time 


COMPARE OKIDATA’S FEATURES wigs 


TO ANY OTHER PRINTER! SITHDTMEABI Single Sided $380.00 2 or more $370.00 
COMPARE PRIORITY ONE’S PRICES SITNOTM8482 Double Sided $495.00 2ormore $485.00 
‘ SITNDOTM8M = Manual - not included with drive $ 10.00 
TO ANY — THEN DECIDE! : 
; TANDON 514" DRIVES 
Don’t be fooled by those who try to SITNDTM1001 Single Sided, 250KB (5 bs) $220.00" ea 
soak” you for the options 2 or More $200.00 
@ BI-DIRECTIONAL-120 CPS @ Both Parallel and 1200 
© 9x9 Matrix (Alphanumeric) baud Serial I/O (82A & 83A) SITNDTM1002 Double Sided, 500KB $295.00 ea. 
@ 6x9o0r12 Matrix for graphics ®@ Self Test 2 or More $270.00 
@5,8.3, 10, 16 Characters © Out of Paper Switch SITNDTM1003 Single Sided, 500KB $295.00 ea. 
Per Inch @ Friction or Optional Tractor 
@80 CPL @ 10 CPI for 82A Feed (Tractor Standard on 84) SITNDTM1004 PR ar Poviae ct tas $395.00 ea 
@732 CPL @ 100CPI for © 10 different character sets ; * " 
83A & 84 2 or More $375.00 
All three printers feature front panel switch selectable for lengths; 10 lengths SITNDTMSM = =©manual, not included with drive $ 10.00 


from 3” to 14”. Front or bottom aper loading for up to 4 part forms and tear 
bar. All of these features make OKIDATA the best value in low cost printers! 


*As used in the IBM P.C. 


aa MITSUBISHI ELECTRIC 


Part No. Description Ust Price SALE 

SIPDBOKI82ATS OKIDAT82A w/tractor and graphics $539.00 

SIPOBOKIS3ATG OKIDAT83A wi/tractor & graphics $750.00 

SIOKISER2KBF 9600 Baud 2K serial buffer/interface $149.00 Better Than 

SIOKIDAT84AP 132 col. printer parallel interface $ 1095.00 QUME! 
with graphics and tractor (35 Ibs.) 

SIOKIDATB4AS 132 col. printer 9600 baud serial 2K $ 1250.00 Better Than 
interface, graphics and tractor (35 Ibs) 1 

SIMBSAPLWTWC* Apple Parallel Interface w/Cable $ 75.00 SHUGART! 


*Sold only with printer 
COMPARE PRICES!! 


ADDS 


Applied Digital Data Systems Inc. 


SALE! 
Green Screen 


$525.00 
Black & White 
$479.00 


VIEWPOINT — ADDS 
Detachable keyboard, RS232 interface and auxiliary port, 
80 x 24 display, tiltable screen. 
SIADDYWPR ADDS 3A, P31 Green Phosphor $699.00 $525.00 4 
SIADDVWPRBW P4 Black & White $699.00 $479.00 , —— 


ee UNIVERSAL DISK ENCLOSURES 


Te ° 2 @ Accepts any combination of 8" drives (QUME/Shugart 
e evi eo 801R type or % size Tandon type) @ Also accepts hard 
WORLD’S BEST SELLING TERMINAL! 


disks @ Positive pressure @ Optional Disk environment 
Extra Memory Pages! 


8". Double-sided. double-density, interchangeable with QUME & Shugart 


$495.00 
$ 10.00 


SIMITM289463 Sh. Weight 16 Ibs. 
SIMITM268463 MM) Manual 


2 or More $475.00 each 


WZ}. shugart 801R 


Single sided, double density - most popular 8" drive 
SISHU8OIR $394.90 ea or20rmore(16/bs) for $389.90 
SISHUSA801RM Manual for 801R drives $ 10.00 


i INSTRUMENTATION, INC. 


OUR BEST!! 


monitor shows supply voltage and internal cabinet temp- 
erature @ Internal power and data cables provided. 
UNIVERSAL DRIVE CABINET complete with power supply, fan and filter, and 


FREE!! all internal cables for attachment of two 8” floppy drives. 
Lab SINMIUDEOO4 == Dual Drive Cabinet(Sh. Wt.40 lbs) $495.00 . $450.00 
Siroprivezsze: =~ $748.00 SIINUDEOD4 — With purchase of two 8” Disk Drives $399.00 


*TeleVideo 925 w/free 2nd page 
memory kit, a $95.00 value! 
SIPDBTLY8504P* $949.00 
*TeleVideo 950 w/free 2nd, 3rd & 
4th page memory kit, $285.00 value 
SITL¥910 Sh Wt 43 Ibs. $599.00 


BEST BUY! 


SEND $1.00 TODAY 
FOR THE NEW, FULL COLOR 
SPRING 1982 ENGINEERING 


SINI!!DEOO4EM w/Environmental Monitor installed $584.95 $535.00 
SIIMUDEOO4EM With purchase of two 8” Disk Drives $485.00 
SIIIUDEQO4AUG Dual Drive cabinet with Aug- $733.00 $650.00 

mentation power supply module to increase SV 

supply from 6 amps to 9 amps for use with two 

hard disks or 4 Tandon drives. Also includes 

Disk Environment Monitor (45 Ibs) 
SIMIUDERCK = 19" Rack Mount kit UDE004 $ 69.95 
THIN THREE DRIVE CABINET complete with power supply, and all internal 
cables for attachment of three thin 8” floppy drives (Tandon type). One AC 
power connector is also provided for use with full size drive 
SINNUDETT — Three Drive Cabinet (Sh. Wt 35 Ibs) $495.00 $450.00 


SIMIVDETTTEM = with Environmental Monitor installed $584.95 $535.00 
SELECTION GUIDE! 


PRIORITY ELECTRONICS. \Q = 
NS 


wae MITA 
cae 9161 DEERING AVE @ CHATSWORTH. CA 91311 neos 
ORDER TOLL FREE (800) 423-5922 - CA, AK, HI CALL (213) 709-5464 


@ 12 CPS @ 10 CPI @ 6LPI @SERIAL OR PARALLEL INTERFACE 
© 50-19.2K Baud @ Friction Feed @ 88 Character 
SISCM12625 TPi Black Milar Ribbon 
SISCM12658 Pi Black Fabric Ribbon 


Terms. U.S. VISA, MC, BAC, Check, Money Order, U.S. Funds Only. CA residents add 6¥2% Sales Tax. MINIMUM PREPAID ORDER $15.00. Include MINIMUM 
SHIPPING & HANDLING of $3.00 for the first 3 Ibs., plus 40¢ for each additional pound. Orders over 50 Ibs. sent freight collect. Just in case, please include your phone 
number. Prices subject to change without notice. We will do our best to maintain prices through September, 1982. Credit Card orders will be charged appropriate freight. 
if you haven't received your Spring ‘82 Engineering Selection Guide, send $1.00 for your copy today! Sale prices are for prepaid orders only. 


$3.50 
$7.50 
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ABSOLUTELY! 


ABSTAT™ 


Anderson-Bell 


© COPYRIGHT 1982 


ABSTAT can now read and write files in 
dBase II format making it easier for you to 
evaluate sales strategy, blood chemistry 
or perform quality control testing. 


ABSTAT is absolutely the most flexible, 
simple yet comprehensive statistics and 
data analysis package available for CP/M 
based computers. 


For more information call or write: 


Anderson-Bell 
5336 So. Crocker St. 
Littleton, Colorado 80120 
(303) 936-3859 


Prices are $395 for ABSTAT AND $25 for a manual 
Price of the manual includes an 8” demonstration disk if 
requested. 


ABSTAT is a registered trademark of Anderson-Bell 
CP/M is a registered trademark of Digital Research 
dBase Il is a registered trademark of Aston Tate 
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High-Level Language continued... 


ated through strong data typing. Ennumeration 
types with explicitly declared subranges are pro- 
vided for the use of strong typing. 


Prolog 

After observing that predicate logic can express 
anything that a typical programming language 
can express, Prolog, a language based on logic, was 
developed. 

It is unusual in its declarative nature, which 
contrasts with the procedural style of most pro- 
gramming languages. In Prolog, a program con- 
sists of axioms, and theorems of deduction that the 
language may use in attempt to prove a goal. 

For example, if Prolog can prove that a sentence 
is syntactically well formed, given the BNF of the 
language, the resultant proof is sirmply the parse of 
the sentence. This is exactly what the parser of any 
high-level language must do. 


SETL 

Proclaimed by its designers to be a “very” high- 
level language, SETL exploits the use of mathe- 
matical sets as the fundamental datatype. Though 
sets appeared in prior languages, SETL provides 
as primitives very high-level operations such as 
power set construction and the universal and exis- 
tential quantifiers of first-order predicate cal- 
culus. 

The idea behind SETL is to allow quite abstract 
specifications of programs that can actually be 
run, and then to allow parts to be rewritten for 
efficiency (though you have to do that yourself). 


Ada 

With the continuing effort of the Department of 
Defense and your tax dollars, the Ada Language is 
currently coming to fruition. Based on Pascal, the 
language includes no startling innovations. It is an 
excellent combination of concepts and ideas of 
high-level programming languages and it fulfills 
all the requirements that spurred its creation: soft- 
ware cost reduction, transportability, ease of 
maintenance, high reliability, readability, and ef- 
ficient execution. 


C and Forth 
Since this issue of Microsystems contains reviews 
of C and Forth, let me briefly say why they are not 
discussed here, too. 

Neither C nor Forth have brought with them 
any new ideas in high-level programming lan- 
guages. This is not a shortcoming. In fact, they are 
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both what some people like to call MLLs (Medium 
Level Languages). MLLs are designed for work- 
ing at the hardware level, yet they often provide 
powerful tools (control structure, data structure, 
scoping) that assemblers do not have. 


Conclusion’Future Trends 

Ada is certainly a fine product of state of the art 
work. While it does not present any totally original 
innovations, the selected ideas that it does embody, 
and the widespread use expected of it, suggest that 
Ada will have a large impact on future research in 
programming languages. 

Ada does not encompass all the good ideas of 
past languages. In particular, APL, Lisp, Small- 
talk, Snobol and SETL will continue to demon- 
strate the power and usefulness of languages that 
are based on a small core of consistent ideas. Also, 
Prolog exemplifies the move toward non-declara- 
tive programming that is expected in the future. 

Another important area is the study of pushing 
high-level language concepts down into the hard- 
ware of the machine (e.g. VLSI). For example, the 
table idea of Snobol, a seemingly expensive opera- 
tion, is realizable directly by using associative 
memory. Examination of microprocessors such as 
the Intel 8086 or Zilog Z8000 uncovers architec- 
tures specially modeled for handling activation 
records in block-structured languages such as Pas- 
cal or Algol. 

Use of microcode is a quick way of creating 
suitable machines for specialized languages (i.e. 
the Symbolics Lisp Machine). Thus, innovation in 
high-level language can lead to innovation in hard- 
ware, giving us the benefit in the form of faster 
execution speed, increased reliability and higher 
overall capacity in our work. 

In the future, language innovation will continue 
through research in the following areas: abstrac- 
tion, verification, reliability, functional program- 
ming, database management, distributed systems 
and many ideas in artificial intelligence (plan gen- 
eration, natural language, problem solving, etc.). 
It should not be unexpected to see specialized pro- 
gramming languages emerging from any one of 
these topics. 
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Bring the flavor of Unix 
to your Z80 CP/M system 
with Unica 


“Unicum: a thing unique in its kind, especially an example of writing. 
Unica: the plural of unicum.” 


The Unica: a unique collection of programs supporting many features of the 
Unix operating system never before available under CP/M. The Unica are 
more than software tools; they are finely crafted instruments of surgical 
quality. Some of the Unica are: 


be - binary file compare, display differences in hex 

cat - catenate files (vertically) 

cp - copy one or more files, even between users 

dm _- disk mapper, reports free blocks and directory space 
fid - file identification by unique numbers (CRC’s) 

he - horizontal file catenation and column permutation 

In - create file links (multiple names for one file) 

ls - intelligent directory lister, optional multi-columns 

mv - move (rename) files, even between users 

rm - remove (delete) files, with optional verification 

sc - source file compare, with resynchronization 

sfa__-__ set/reset file attributes, optional verification 

sp - spelling error corrector, with 80,000 word dictionary 
sr - search multiple files for a pattern 

srt - in-memory file sorter, optional duplicate line omission 
tee - pipe fitting (copy input stream to multiple outputs) 

tr -  transliterate (translate character codes) 

we - word counter, counts characters, words, and lines 
wx - word extractor, copies each word to a separate line 


Each Unicum understands several flags (“options” or “switches”) which 
control program alternatives. No special “shell” is needed; Unica commands 
are typed to the standard CP/M command interpreter. The Unica package 
supports several Unix-like facilities, such as filename user numbers: 

sc data.bas;2 data.bas;3 
(compares files belonging to user 2 and user 3); 
Wildcard patterns: 

rm -v *tmp* 
(types each filename containing the letters TMP and asks whether to delete 
the file); 
//O redirection: 

Is -a >proj.dir 
(writes a directory listing of all files to file “proj.dir”); 
Pipes: 

dm b: | sr free >lst: 
(creates a map of disk B:, extracts those lines in the map which contain the 
word “free”, and prints them on the listing device). 


The Unica are written in XM-80, a low level language which combines 
rigorously checked procedure definition and invocation with the versatility 
of Z80 assembly language. XM-80 includes a language translator which turns 
XM-80 programs into source code for MACRO-80, the industry standard 
assembler from Microsoft. It also includes a MACRO-80 object library with 
over forty “software components”, subroutine packages which are called to 
perform services such as piping, wildcard matching, output formatting, and 
device-independent I/O with buffers of any size from 1 to 64k bytes. 


The source code for each Unicum main program (but not for the software 
component library) is provided. With the Unica and XM-80, you can 
customize each utility to your installation, and write your own applications 
quickly and efficiently. Programs which you write using XM-80 components 
are not subject to any licensing fee. 


Extensive documentation includes tutorials, reference manuals, individual 
spec sheets for each component, and thorough descriptions of each 
Unicum. 


Update policy: each Unica owner is informed when new Unica or 
components become available. At any time, and as often as you like, you can 
return the distribution disk with a $10 handling fee and get the current 
pa ka of the Unica and XM-80, with documentation for all new or changed 
software. 


The Unica and XM-80 (which requires MACRO-80) are priced at $195, or 
$25 for the documentation. The Unica alone are supplied as *:COM 
executable files and are priced at $95 for the set, or $15 for the 
documentation. Software is distributed only on 8” floppy disks for Z80 CP/M 
version 2 systems. All orders must be paid in advance; no COD’s or 
purchase orders, please. Quantity discounts are available. Shipment outside 
of the US or Canada costs an additional $20. Bank checks must be in US 
funds drawn on a US bank. 


Knowlogy 
Wilsonville, Oregon 97070 


Visa/Mastercard customers call (503) 639-3420 for next day shipment. 
CP/M is a trademark of Digital Research. Unicum and Unica are trademarks of 
Knowlogy. Unix is a trademark of Bell Telephone Labs. XM-80 is a trademark of 
Scientific Enterprises. Z80 is a trademark of Zilog Inc. 
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UNIPROM 


THE VERSATILE EPROM HANDLER 
HK Reads /programs 2704, 2708, 2758, 2508, 2516, 2716 (1 supply), 2532, 2732, INTEL'S 


2732ZA ond the 8'755A (INTEL/NEC). 


JK No personality modules required. 
WAI power is derived from the S-100 bus. 
KAI signals are $-100 compatible. 


Port mapping occupies NO memory space. 


An on-board wait-state generator allows use with bus clock rates exceeding 6mhz. 


PKAII software is 8080/8085/Z80 compatible. 
We Software includes ‘‘menu’’ commands, ‘‘intelligent’’ EPROM read write and disk 1/0 
commands, and functions usually found only in ‘‘monitors’’ and ‘‘debuggers’’. 


XKProgramming power is supplied on-board with no external connections other than the 
S-100 bus. 

¥KCff-on switch to protect the EPROMs during start-up. 

WAII software is fully CDOS ond CP/M compatible. 


UNIPROM board (A & T) with extensive documentation, including source 
listings -$199. 00 


UNIPROMaisk- ‘based software with source on disk ond listing (sveciy Be 25° 
or 8’’ CDOS or CP/M, or NORTHSTAR 5.25'’ CP/M -- $38.0 


UNIPROMepron. based software (one 2532) source listing and bootstrap 
listing (for users of non-standard disk or tape systems). -- $55. 00 


CDOS is a registered trademark of CROMECO, INC. 
CP/M is a registered trademark of DIGITAL RESEARCH, 

NORTHSTAR is a registered trademark of NORTHSTAR COMPUTER, INC. 
UNIPROM is o registered trademark of CER-TEK, INC. 


BOTH FEATURIN 


@ = so0as cpu —_@— 
~ ey Se re BASE 


_ 


ex — TIMER COUNTER 


— 256 BYTES OF RAM e 


S 5-1 
4 Has 2K/4K ROM/EPROM (ROM’s are not supplied ), 
% 46 1/0 Lines (Parallel/Series/Handshake) and 


%& 5 levels of interrupt Price: $129 (A&T) 


%& Has 2 K ROM/EPROM (ROM’s are not supplied) 
%& 22 1/0 Lines- Parallel/Series /Handshake) and 
% 2 levels of interrupt Price: $99 


32 [Eg CER -TEK oe 


6020 Doniphan 3B_ El Paso, Tx x 79932 (915) 581-6697 
ELECTRONICS MANUFACTURING SINCE 1975 
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Printer & Disk Drive Sale 


Dot Matrix Printers 


NEW EPSONS with GRAFTRAX-plus 
Epson has improved and upgraded their best selling line of 
printers to include their new GRAFTRAX-plus graphics 
package. Features now include; 9 x 9 matrix, bi- 
directional/logic seeking, line spacing to n/216, 
programmable forms length and horizontal tabs, skip over 
perf, italics fonts, international symbols, 
superscript/subscript, normal, emphasized, double-strike, 
and double-emphasized print, underlining, line drawing 
graphics, 60/120 DPI bit image, software reset, adjustable 
right margin, and true back space. 


MX-80 with GRAFTRAX-plus 80/132 column, 80 CPS, 
adjustable pin feed, parallel interface. 
PRM-28080 MX-80 w/GRAFTRAX-plus .........- $479.95 


MX-80FT with GRAFTRAX-plus same as MX-80 with 
friction feed and pin feed. 
PRM-28082 MX-80FT w/GRAFTRAX-plus ....... $559.95 


MX-100 with GRAFTRAX-plus = 132/232 column, 
correspondence quality, up to 15" paper, friction feed & 
adjustable pin feed, 18 x 18 dot matrix, 80 CPS. 

PRM-28100 MX-100 w/GRAFTRAX-plus 


PRA-27084 Serial interface 
PRA-27088 Serial intf & 2K buffer 
PRA-27081 Apple card . 
PRA-27062 Apple cable ...........5.0.ceeeeceeee $19.95 
PRA-27086 /EEE 488 card ......... cece eee eee e ee $59.95 
PRA-27087 TRS-80 cable 
PRA-27097 GRAFTRAX-plus MX-80, FT 
PRA-27197 GRAFTRAX-plus MX-100 ............ $64.95 
PRA-27090 MX-80, FT print head 
PRA-27190 MX-100 print head 

PRA-27083 MX-80 ribbon cart. 

PRA-27101 MX-100 ribbon only 


BETTER THAN EPSON! - Okidata 


Microline 82A 80/132 column, 120 CPS, 9 x 9 dot matrix, 
friction feed, pin feed, adjustable tractor feed (optional), 
handles 4 part forms up to 9.5" wide, rear & bottom feed, 
paper tear bar, 100% duty cycle/200,000,000 character print 
head, bi-directional/logic seeking, both serlal & parallel 
Intertaces included, front panel switch & program control of 
10 different form lengths, uses inexpensive spool type 
ribbons, double width & condensed characters, true lower 
case descenders & graphics 

PRM-43082 Friction & pin feed ................. $499.95 


Microline 83A 132/232 column, 120 CPS, forms up to 15" 
wide, removable tractor, plus all the features of the 82A. 
PRM-43083 with FREE tractor .................. $744.95 


Microline 84 132/232 column, Hi-speed 200 CPS, full dot 
graphics built in, plus all the features of the 83A. 
PRM-43084 Centronics parallel .... ... $1149.95 
PRM-43085 Seria! with 2K buffer .. ... $1249.95 
PRA-27081 Appie card ...........0.cecnceeseeees 
PRA-27082 Apple cable ............00 cece cence 
PRA-27087 TRS-80 cable s 
PRA-43081 2K hi speed serial card .............. $99.95 
PRA-43082 Hi-res graphics ROMs 82A ........... $49.95 
PRA-43083 Hi-graphics ROMs 83A = 
PRA-43088 Tractor option for 82A 
PRA-43080 Extra ribbons pkg. of 2 ............0-5 $9.95 


8023 DOT MATRIX - NEC 
100 CPS, proportional spacing, hi-resolution graphics, 
correspondence quality printing, bi-directional tractor & 
friction feed. 
NEC-8023A 8023 parallel 
NEC-8023-01 8023 ribbon ..............-.6--00-+ $11.95 


PRINTER PALS - F.M.J. Inc. 


Desk top printer stand and continuous form paper holder. 


PRA-99080 for MX-80, MX-80FT, Oki 82A, NEC .. $29.95 
PRA-99100 for MX-100, Oki 83A & 84 ............ $34.95 
PRA-99700 for letter quality printers ............. $49.95 


Jade Bus Probe 


THE BUS PROBE - Jade 
Inexpensive S-100 Diagnostic Analyzer 
Double-high S-100 board which displays all 96 IEEE S-100 
signals without the expense of an ocilloscope or a front panel 
TSX-200B Bare board 
TSX-200K Kit 
TSX-200A A&T 


Dual Disk Sub-Systems 


Disk Sub-Systems - Jade 
Handsome metal cabinet with proportionally balanced air 
flow system, rugged dual drive power supply, power cable 
kit, power switch, line cord, fuse holder, cooling fan, never- 
mar rubber feet, all necessary hardware to mount 2-8" disk 
drives, power supply, and fan, does not include signal cable. 


Dual 8" Sub-Assembly Cabinet 


END-000420 Bare cabinet ................2020..- $59.95 
END-000421 Cabinet kit ............. 0.0... $225.00 
BND =OOAS 1 ALS aT, pasccssa a scs:ciisrq:earetalsinminss,aprem eras $359.95 
8" Sub-Systems - Single Sided, Double Density 
END-000423 Kit w/2 FD100-8Ds ................ $975.00 
END-000424 A & T w/2 FD100-8Ds .. .. $1175.00 
END-000433 Kit w/2 SA-801Rs .... -.. $999.95 
END-000434 A & T w/2 SA-801Rs ............. $1195.00 
8" Sub-Systems - Double Sided, Double Density 
END-000426 Kit w/2 DT-8s ...... 0.0.0.6... eee $1224.95 
END-000427 A & T w/2 DT-8s ........... 00.0 $1424.95 


-. $1274.95 
$1474.95 


51/," Disk Drives 


Tandon TM100-1 
MSM-551001 .............. $248.95 ea 


Shugart SA400L 


single-sided double-density 48 TPI 
2 for $219.95 ea 


single-sided double-density 40 track 


MSM-104000 .............. $234.95 ea 2 for $224.95 ea 
Shugart SA455 half-size double-sided 48 TP! 
MSM-104550 .............. $349.95 ea 2 for $329.95 ea 
Shugart SA465 half-size doule-sided 96 TP! 
MSM-104650 .............. $399.95 ea 2 for $379.95 ea 
Tandon TM100-2 double-sided double-density 48 TPI 
MSM-551002 .............. $324.95 ea 2 for $298.95 ea 
Shugart SA450 double-sided double-density 35 track 
MSM-104500 .............. $349.95 ea 2 for $329.95 ea 
Tandon TM100-3 single-sided double-density 96 TP! 


MSM-551003 .............. $324.95 ea 2 for $298.95 ea 
Tandon TM100-4 double-sided double-density 96 TP! 
MSM-551004 .............. $448.95 ea 2 for $419.95 ea 
MPI B-51_ single-sided double-density 40 track 


MSM-155100 .............. $234.95 ea 2 for $224.95 ea 


MPI B-52 double-sided double-density 40 track 
MSM-155200 .............. $344.95 ea 2 for $334.95 ea 


MPI B-91 
MSM-155300 .............. $369.95 ea 


MPI B-92 double-sided double-density 77 track 
MSM-155400 .............. $469.95 ea 2 for $459.95 ea 


single-sided double-density 77 track 
2 for $359.95 ea 


51," Cabinets with Power Supply 
END-000216 Single cab w/power supply ......... $69.95 
END-000226 Dual cab w/power supply .......... $94.95 


8” Disk Drives 


half-size single-sided double-density 
2 for $394.95 ea 


Shugart SA8&10 
MSF-108100 .............. $424.95 ea 


Shugart SA860 
MSF-108600 .............. $574.95 ea 


Shugart SA801R 


half-size double-sided double-density 
2 for $549.95 ea 


single-sided double-density 


MSF-10801R .............. $394.95 ea 2 for $389.95 ea 
Shugart SA851R = double-sided double-density 
MSF-10851R .............. $554.95 ea 2 for $529.95 ea 


Tandon TM848-1 single-sided double-den thin-line 
MSF-558481 .............. $424.95 ea 2 for $394.95 ea 


Tandon TM848-2 double-sided double-den thin-line 
MSF-558482 .............. $574.95 ea 2 for $549.95 ea 


Qume DT-8 double-sided double-density 
MSF-750080 .............. $524.95 ea 2 for $498.95 ea 


MitsubishI M2894-63 
MSF-289463 .............. $549.95 ea 


Siemens FDD 100-8 single-sided double-density 
MSE-201120: sesitesinccnac $384.95 ea 2 for $349.95 ea 


i SEES 
Prices may be slightly higher at our retail locations. Please 
contact the store in your area for exact pricing. 


double-sided double-density 
2 for $524.95 ea 


CIRCLE 18 ON READER SERVICE CARD 


'MSH-531010 S-100 sub-system ............00++ $2095.00 


Hard Disk Drives 


12 MEGABYTE SUB-SYSTEM - DayStar 
12 Megabyte Winchester sub-system for most CP/M based 
microcomputers including Apple II, S-100, IBM PC, NEC, 
Xerox, TRS-80 II, Heath H-89, and others. Sub-system 
includes interface, controller, cabinet, power supply, CP/M 
software patch, & cables - ready to just plug inandrun. A1 
Megabyte back-up drive is also available. 


MSH-531020 Apple // sub-system ...........-. $2095.00 
MSH-531030 NEC sub-system ...............-. $2095.00 
MSH-531040 Xerox sub-system .. $2095.00 
MSH-531050 TRS-80 // sub-system ... - $2095.00 
MSH-531060 /8M PC sub-system ... . $2095.00 
MSH-531099 7 Megabyte back-up $699.95 


12 MEGABYTE WINCHESTER - Tandon 
51," hard disk drive for hi-speed mass storage. 
MSH-550603 Bare 51," drive ...... 6. cece eee $1094.95 


Letter Quality Printers 
TP-1 LETTER QUALITY - SCM 


10 CPS daisy wheel printer from Smith Corona. 
PRD-45101 Centronics parallel .............000e $699.95 
PRD-45102 AS-232C s@rial ....... cece cece eee $749.95 


LETTER QUALITY PRINTER - Jade 
Uses standard daisy wheels and ribbon cartridges, 16 CPS 
bi-directional printing, semi-automatic paper loader (single 
sheet or fan fold), 10/12/15 pitch, up to 16" paper, built-in 
noise suppression cover. 

PRD-11001 Centronics parallel ......... 06.0000 $959.95 
PRD-11002 RS-232C serial model $999.95 


STARWRITER F-10 - C. Itoh 
New 40 CPS daisy wheel printer with full 15" carriage, uses 
standard Diablo print wheels and ribbons, both parallel and 
serial interfaces included. 
PRD-22010 Starwriter F-10 ......0seeecceeeeeee $1495.95 


80 CPS LETTER QUALITY - Fujitsu 

High speed daisy wheel printer with both RS-232C serial & 
Centronics parallel interfaces, emulates NEC 5510, Diablo 
630, Qume, and will interface to the |BM Personal Computer, 
features include Z-80 CPU, 16K buffer (48K optional), bi- 
directional printing, & baud rates up to 19.2K 

PRD-86100 Fujitsu with 16K ..........2.-000005 $2895.00 
PRD-86200 Fujitsu with 48K ....... 6.0 cc cece eee $3195.00 
PRA-86000 Adjustable tractor ...........+.--- .. $190.00 


Software 


PLANNER CALC - Target Software 
Spread sheet (what if ?) program designed with the user in 
mind, user oriented (simple english) commands allow you to 
quickly master this powerful software package, supplied on 
disk for most CP/M based systems. 

SFA-12251052M Apple // 51," CP/M ...........-- $49.95 
SFC-12251050F SS SD 8" CP/M .......ceeeeeeeee $49.95 
SFC-12251053F Xerox 8" CP/M ... 
SFC-12251053M Xerox 51," CP/M 
SFX-12251051M NEC 51," CP/M ......-.-.00000% $49.95 


PAC MAN - Atari 


Atari's best selling game for your 800 or 400 computer. 
SFI-31254022E Pac Man cartridge .............++ $37.95 


Place Orders Toll Free 


Continental U.S. Inside California 


800-421-5500 800-262-1710 


For Technical Inquires or Customer Service 


213-973-7707 


«JA TSE: 


Computer Products 


4901 W. Rosecrans, Hawthorne, Ca 90250 
TERMS of SALE: (Cash, checks, credit cards, or 


Purchase Orders from qualified firms and institutions 
Minimum Order $15.00. California residents add 6% 
tax. Minimum shipping & handling charge $3.00. 
Pricing & availibility subject to change 


Disk Drive for Apple °319.95 


Single User System 


PREMIUM DISKETTES - Jade 


We proudly put our name on these high quality diskettes - 


5\, Diskettes, Box of Ten 
MMD-5110103 SS, 
MMD-5111003 SS, 
MMD-5111603 SS, 
MMD-5120103 SS, 
MMD-5121003 SS, 
MMD-5121603 SS, 


8" 
MMD-8110103 SS, 
MMD-8120103 SS, 
MMD-8220103 DS. 


BARGAIN DISKETTES 
MMD-5110105 51," SS, DD, 01S 
MMD-5220105 51," OS, DD, 01S . 
MMD-8110105 8” SS, SD, 07S .... 
MMD-8120105 8” SS, DD, 01S 
MMD-8220105 8" SS, DD, 01S 


Video Monitors 


HI-RES 12” GREEN - Zenith 
15 MHz bandwith 700 lines/inch, P31 green phosphor, 
switchable 40 or 80 columns, small, light-weight & portable 
VDM-201201 List price $189.95 .............. .. $129.95 


12” GREEN SCREEN - NEC 


20 MHz bandwidth, P31 phosphor ultra-high resolution 
video monitor with audio. 


VDM-561200 List price $289.95 $199.95 


12” COLOR MONITOR - NEC 

High resolution color monitor with audio 
VDC-651212 Color monitor +++ $389.95 
$999.95 


13” COLOR MONITORS - BMC 
18 MHz RGB & composite video color monitors. 
VDC-421320 13" RGB Color ... $329.95 
VDC-421310 13" Composite video 
VDX-420090 AGB card for Apple .... 


COLOR MONITORS - Amdek 

Reasonably priced color video monitors 
VOC-80130 13" Color! : ‘ : 
VOC-B01320: 137 COM .o.0.0 cvinwisiesessiecaisiaeeaie 
1OV-2300A DVM board for Apple 


AMBER or GREEN MONITORS - Jade 
High resolution 18 MHz compact video monitors. 
VDM-751210 12” Amber phosphor 
VDM-751220 12” Green phosphor 
VDM-750910 9” Amber phosphor 
VDM-750920 9" Green phosphor 


SIGNALMAN - Anchor 
Direct-connect automatic answer/originate selection, 300 
Baud full duplex, Bell 103, includes RS-232 cable 
1OM-5600A Signaiman ...... 


SMARTMODEM - Hayes 
Sophisticated direct-connect auto-answer/auto-dial 
modem, touch-tone or pulse dialing, RS-232C interface, 
programmable 
1OM-5400A Smartmodem 
1OK-1500A Hayes Chronograph 
1OM-2010A Micromodem |! 
10M-1100A Micromodem 100 


EPROM Erasers 


ULTRA-VIOLET EPROM ERASERS 
Inexpensive erasers for industry or home 
XME-3100A Spectronics w/o timer 
XME-3101A Spectronics with timer 
XME-3200A Economy model 


$98.50 


THREE BOARD SET - SD Systems 

4 MHz 2-80A CPU, 64K RAM (optional 256K), serial 1/O port. 
paralle/ I/O port, double density disk controller, CP/M 2.2 & 
manual set, system monitor, control & diagnostic software 
Includes SBC-200, 64K ExpandoRAM II, Versafloppy II, & 
CP/M 2.2 - all boards are assembled & tested. 
Board set with 64K of RAM 

Board set with 256K of RAM 


$1095.00 
$1295.00 


Apple Ii Accessories 


16K RAM CARD - for Apple II 
Expand your Apple to 64K, 1 year warranty 
MEX-16700A Save $125.00 !!! 


ADD-ON DISK DRIVE - for Apple II 
Inexpensive direct replacement for Apple Disk II, works with 
Apple II controller as first or second drive. 
MSM-123200 Add On Drive 
MSM-123100 Controller 


$319.95 
. $94.95 


Z-80 CPU CARD - for Apple I! 
Two computers in one, Z-80 & 6502, more than doubles the 
power and potential of your Apple, includes Z-80 CPU card 
CP/M and complete manual set 


CPX-62800A A & T with software ............... $249.95 


8" DISK CONTROLLER - Vista 
New from Vista Computer, single or double sided, single or 
double density, compatible with DOS 3.2/3.3, Pascal, & 
CP/M 2.2, Shugart & Qume compatible 
1OD-2700A A &T 


2 MEGABYTES for Apple I! 
Complete package includes: Two 8" double-density disk 
drives, Vista double-density 8" disk controller, cabinet, 
power supply, & cables, DOS 3.2/3.3, CP/M 2.2, & Pascal 
compatible. 
1 MegaByte Package 
1 MegaByte Package 
2 MegaByte Package 
2 MegaByte Package 


- $1495.00 
.. $1695.00 
. $1795.00 

$1995.95 


APPLE-CAT - Novation 
Software selectable 1200 or 300 baud, direct connect, auto- 
answer/auto-dial, auxiliary 3-wire RS232C serial port for 
printer. 


1OM-5232A Save $50.00!!! ae aaiinteet $325.95 


VISION 80 - Vista Computer 
80 column x 24 line video card for Apple II, 128 ASCII 
characters, upper and lower case, 9 x 10 dot matrix with3 dot 
descenders, standard data media terminal control codes, 
CP/M Pascal & Fortran compatible, 50/60 Hz 


lOV-2400A Vista Vision 80 $299.95 


CPS MULTICARD - Mtn. Computer 
Three cards in one! Real time clock/calendar, serial 
interface, & parallel interface - all on one card. 


1OX-2300A A &T $179.95 


HI-RES GRAPHICS CARD - Genie 
Intelligent printer interface and control card allows full high 
resolution graphics and screen dumps. 
1OP-2405A Genie for Epson 
1OP-2410A Genie for Okidata . 
1OP-2415A Genie for NEC/C. Itoh .. 


$119.95 
$119.95 
eva aiee Ble $119.95 


Power Strips 


ISOBAR - GSC 
Isolates & protects your valuable equipment from high 
voltage spikes & AC line noise, inductive isolated ground, 15 
amp circuit breaker, U.L. listed 
EME-115103 3 socket 
EME-115105 4 socket ... 
EME-115100 8 socket ................06- 
EME-115110 9 socket rackmount 


Single Board Computer 


SUPERQUAD - Adv. Micro Digital 
Single board, standard size S-100 computer system, 4 MHz 
Z-80A, single or double density disk controller for 51/," or 8" 
drives, 64K RAM, extended addressing, up to 4K of EPROM, 
2 serial & 2 parallel 1/O ports, real time interrupt clock, CP/M 
compatible. 

CPC-30800A A & 7 
1OX-4232A Serial |/O adapter 


Z-80 STARTER KIT - SD Systems 
Complete Z-80 microcomputer with RAM, ROM, I/O, 
keyboard, display, kiudge area, manual, & workbook. 
CPS-30100K Kit with workbook $299.95 
CPS-30100A A & T with workbook . $469.95 


AIM-65 - Rockwell International 
Complete 6502 microcomputer with alphanumeric display, 
printer, keyboard, & instruction manual. 
CPK-50165A 71K A/M-65 
CPK-50465A 4K AIM-65 
SFK-74600008E 8K Basic ROM 
SFK-64600004E 4K assembler ROM 
SFK-74600020E PL/65 ROM .... 

SFK-74600010E Forth ROM 
SFK-74600030E /nstant Pascal 
PSX-030A Power supply .......... 
ENX-000002 Enclosure 


SPECIAL PACKAGE 
4K AIM-65, 8K Basic, power supply, & enclosure 
Special Package Price 


S-100 EPROM Boards 


PROM-100 - SD Systems 
2708, 2716, 2732 EPROM programmer with software 
MEM-99520K Kit with software . $189.95 
MEM-99520A A & T with software ............4. $249.95 


PB-1 - SSM Microcomputer 
2708, 2716 EPROM board with on-board programmer. 
MEM-99510K Kit with manual .................. $154.95 
MEM-99510A A & TJ with manua/ ..... . $219.95 


EPROM BOARD - Jade 
16K or 32K uses 2708 or 2716 EPROMs, 1K boundary. 
MEM-16230K Kit w/o EPROMs - $79.95 
MEM-16230A A & T w/o EPROMs .............. $119.95 


S-100 Video Boards 


SPECTRUM COLOR - CompuPro 
Full-function color graphics board, up to 8 colors, 256 x 192 
graphics, parallel 1/O port, 8K RAM. 
HOV-TEFOA, ALG TE aisisistcicccseaseiacernsin's 
1OV-1870C CSC 


$348.95 
$398.95 


MICROANGELO - Scion 
Ultra-high-resolution 512 x 480, 256 color or black & white S- 
100 video board 
IOV-1500A A&T. 


S-100 MotherBoards 


ISO-BUS - Jade 
Silent, simple, and on sale - a better motherboard 
6 Slot (5%" x 8%") 
MBS-061B Bare board salee 
MBS-061K 
MBS-061A 


$999.95 


. $19.95 

. $39.95 

ute . $59.95 
12 Slot (93/," x 85") 

MBS-121B Bare board 

MBS-121K 

MBS-121A 


$29.95 
... $69.95 
. $99.95 


MBS-181B 
MBS-181K 
MBS-181A 


. $49.95 


-. +. $139.95 


ACTIVE TERMINATOR - CompuPro 


A true mother's helper 
TSX-100A A & T 


Prices may be slightly higher at our retail locations. Please call the store nearest you for local price and availability. 


CompuPro Boards on Sale 


S-100 CPU Boards 


8086/8087 - CompuPro 
16 bit, 8 or 10 MHz 8086 CPU with provisions for 8087 & 
80130. 
CPU-70520A 8 MHz 8086 A &T 
CPU-70520C 8 MHz 8086 CSC ............- 
CPU-70530A with 8087 A & T 
CPU-70530C with 8087 CSC 


$624.95 
$764.95 
$1224.95 

. $1455.95 


8085/8086 - CompuPro 
Both 8 & 16 bit CPUs, standard 8 bit S-100 bus, up to 8 MHz, 
accesses 16 Megabytes of memory. 
CPU-20510A 6 MHzA & T 
CPU-20510C 6/8 MHz CSC ... 


$398.95 
$497.95 


CPU-Z - CompuPro 
2/4 MHz Z80A CPU, 24 bit addressing 
CPU-30500A 2/4 MHZA&T ........ cece e eee 
CPU-30500C 3/6 MHz CSC 


$279.95 
$374.95 


SBC-200 - SD Systems 
4 MHz 2-80A CPU with serial & parallel 1/O, 1K RAM, 8K 
ROM space, monitor PROM included. 
CPC-30200A A&T 


THE BIG Z - Jade 
2 or 4 MHz switchable Z-80 CPU board with serial 1/O, 
accomodates 2708, 2716, or 2732 EPROM, baud rates from 
75 to 9600 
CPU-30201B Bare board w/manual . 
CPU-30201K Kit with manual 
CPU-30210A A & T with manual 


$35.00 
.. $149.95 
$199.95 


CB-2 - SSM Microcomputer 
2 or 4 MHz 2-80 CPU board with provision for up to BK of 
ROM or 4K of RAM on board, extended addressing, |EEE S- 
100, front panel compatible 
CPU-30300K Kit with manual 
CPU-30300A A & T with manual 


cscsccns $220.96 
. $274.95 


2810 Z-80 CPU - C.C.S. 
2 0r 4 MHZ Z-80 CPU with serial 1/O port & on-board monitor 
PROM, front panel compatible 


CPU-30400A A & T with PROM ..-.- $289.95 


2820 Z-80 DMA CPU - C.C.S. 
4 MHz 2-80 CPU board with 2 serial |/O ports & Centronics 
parallel 1/O port, separate data & status ports, DMA daisy 
chain compatible. 


CPU-30420A A & T with manual .... ... $569.95 


S-100 Disk Controllers 


DISK 1 - CompuPro 
8" or 5%" DMA disk controller, single or double density, 
single or double sided, 10 MHz 
10D-1810A A&T.... 
100-1810C CSC . $554.95 
$174.95 
$299.95 
. $499.95 
$849.95 


SFC-52506586F 8" CP/M 2.2 for 8086 
SFO-54158000F Oasis single user 
SFO-54158002F Oasis multi-user 


VERSAFLOPPY Ii - SD Systems 
Double density disk controller for any combination of 51%" 
and 8" single or double sided, analog phase-locked loop 
data separator, vectored interrupts, CP/M 2.2 & Oasis 
compatible, control/diagnostic software PROM included. 
10D-1160A A & T with PROM $359.95 
SFC-55009047F CP/M 2.2 with VF Ii ......... $99.95 


2242 DISK CONTROLLER - C.C.S. 
51," or 8" double density disk controller with on-board boot 
loader ROM, free CP/M 2.2 & manual set 
10D-1300A A & T with CP/M 2.2 


DOUBLE D - Jade 
High reliablity double density disk controller with on-board 
Z-80A, auxiliary printer port, IEEE S-100, can function in 
multi-user interrupt driven bus. 
10D-1200B Bare board & hdwr man 
10D-1200K Kit w/hdwr & sftwr man 
10D-1200A A & T w/hdwr & sftwr man 
SFC-59002001F CP/M 2.2 with Double D 


$299.95 
$359.95 


S-100 Memory Boards 


256K RAMDISK - SD Systems 
ExpandoRAM III expandable from 64K to 256K using 64K x 1 
RAM chips, compatible with CP/M, MP/M, Oasis, 
Cromemco, & most other Z-80 based systems, functions as 
ultra-high speed disk drive when used with optional 
RAMDISK software 
MEM-65064A 64K A & T 
MEM-65128A 128K A&T .............. 
MEM-65192A 192K A&T . 
MEM-65256A 256K A & T 
SFC-55009000F RAMDISK sftwr CP/M 2.2 
SFC-55009000F RAMDISK with EXRAM Ii 


$474.95 

veeeees $574.95 
2. $674.95 
$774.95 


128K RAM 21 - CompuPro 
128K x 8 bit or 64K x 16 bit static RAM board, 12 MHz, 24 bit 
addressing. 
MEM-12810A A & T 
MEM-12810C CSC 


. $1609.95 
$1794.95 


64K RAM 17 - CompuPro 
64K CMOS static RAM board, 10 MHz, low power less than 4 
watts, DMA compatible, 24 bit addressing. 
MEM-64180A 64K A & T 
MEM-64180C 64K CSC 


$549.95 
$698.95 


64K RAM 16 - CompuPro 
32K x 16 bit or 64K x 8 bit low power static RAM board, 10 
Mhz, 24 bit addressing 
MEM-32180A RAM 16A&T ..... 
MEM-32180C ARAM 16 CSC 


$598.95 
... $698.95 


64K STATIC RAM - SSM 
IEEE 696/S-100 standard, up to 6MH2/8 Bit, 12MH2z/16 Bit, 24 
Bit extended addressing, disable-able in 2K increments 
MEM-64300A A & T $499.95 


64K STATIC RAM - Mem Merchant 
64K static S-100 RAM card, 4 to 16K banks up to 8 MHz 
MEM-64400A 64K A & T 


2065 64K RAM - C.C.S. 
4 MHz bank port/bank byte selectable, extended addressing, 
16K bank selectable, front panel compatible 


MEM-64565A 64K A & T $349.95 


2066 64K RAM - C.C.S. 
64K RAM board with bank and block select switching 
functions for Cromemeco Cromix & Alpha Micro 
MEM-64566A 64K A4&T ....... 


64K EXPANDORAM II - SD Systems 
Expandable RAM board from 16K to 64K using 4116 RAM 
chips. 
MEM-16630A 16KA4&T . 
MEM-32631A 32K A & T 
MEM-48632A 48K A4&T .. AR aeingile 
MEM-64633A 64K A4&T ......... 


SEB TINES! Irene CRE $344.95 
$364.95 
-... $384.95 
$399.95 


MEMORY BANK - Jade 
4 MHz S-100 bank selectable expandable to 64K 
MEM-99730B Bare board w/manual ... $49.95 
MEM-99730K Kit with no RAM -... $179.95 
MEM-32731K 32K kit $199.95 
MEM-64733K 64K kit $249.95 
Assembled & Tested . add $50.00 


32K RAM 20 - CompuPro 
32K static RAM, upto 10 MHz, disable-able in 4K banks, bank 
select or 24 bit addressing 
MEM-16180A 16K A &T 
MEM-16180C 16K CSC ... 
MEM-24180A 24K AGT oc ccciccisncsvecenens 
MEM-24180C 24K CSC 
MEM-32185A 32K A & T 
MEM-32185C 32K CSC 


$259.95 
$324.95 
$324.95 
$384.95 
$384.95 
. $449.95 


16K STATIC RAM - Mem Merchant 
4MHz lo-power static RAM board, IEEE S-100, bank 
selectable, addressable in 4K blocks, disable-able in 1K 
segments extended addressing. 


MEM-16171A 16K A&T ... $149.95 


S-100 I/O Boards 


SYSTEM SUPPORT 1 - CompuPro 
Real time clock, three 16 bit interval timers, dual interrupt 
controllers(15 levels), up to 4K EPROM/RAM, RS-232C 
serial channel, provision for 9511A/9512 math chip. 
1OX-1850A SS1A &T 
10X-1850C SS1 CSC 
1OX-1855A with 9511 A &T 
1OX-1855C with 9511 CSC ... 
10X-1860A with 9512A &T 
1OX-1860C with 9512 CSC 


$359.95 
cesses. $459.95 
$554.95 
$654.95 
$554.95 
$654.95 


INTERFACER 1 - CompuPro 
2 serial 1/O ports 50-19.2K baud. 
101-1810A A & T 
101-1810C CSC 


$218.95 


INTERFACER 2 - CompuPro 

3 parallel, 1 serial, & interrupt timer. 
101-1820A A &T .... $218.95 
101-1820C CSC . $288.95 


INTERFACER 3 - CompuPro 
5 or 8 channel serial 1/O board for interrupt driven multi-user 
systems up to 250K baud 
1O1-1835A SportA&T... 
101-1835C 5 port CSC . 
101-1838A 8 portA & T 
101-1838C 8 port CSC . 


$558.95 
$628.95 
Re none e y $628.95 
$749.95 


INTERFACER 4 - CompuPro 
3 serial, 1 parallel, 1 Centronics parallel 
101-1840A A & T 
101-1840C CSC 


ee eees $314.95 
+++ $414.95 


MPX - CompuPro 
Multi-user 1/O multiplexer & interrupt controller with on- 
board 8085A-2 CPU & 4K or 16K of RAM. 
101-1875A 4K MPXA&T 
1Ol-1875C 4K MPX CSC .. 
1O1-1880A 16K MPXA&T 
lO1-1880C 16K MPX CSC 


oo +. $534.95 
$584.95 
$674.95 


1/O-8 - SSM Microcomputer 
Eight software programmable serial I/O ports, 110 -19.2K 
Baud, ideal for multi-user systems 
101-1018A A&T 


1/0-5 - SSM Microcomputer 
Two serial & 3 parallel 1/O ports, 110-19.2K Baud 


1OI-1015A A&T ws cee. 9280.05 


MPC-4 - SD Systems 
Intelligent 4-port serial 1/O card, on-board Z-80A, 2K RAM, 
4K PROM area, on-board firmware, fully buffered, vectored 
interrupts, four CTC channels, add to SD Board set for 
powerful multi-user system 


101-1504A A & T w/software $495.00 


1/0-4 - SSM Microcomputer 
2 serial |/O ports plus 2 parallel 1/O ports 
101-1010B Bare board w/manual 
1O1-1010K Kit with manual 
101-1010A A & T with manual ....... 


$35.00 
--.-. $179.95 
vse» $249.95 


2830 6 PORT SERIAL - C.C.S. 
Six asynchronous RS-232C serial 1/O ports with 
programmable baud rates 


101-1040A A & T with manual ... $529.95 


2710 4 PORT SERIAL - C.C.S. 
Four RS-232C serial I/O ports with full handshaking 
101-1060A A & T with manual . $319.95 


2719 2 SER & 2 PAR - C.C:S. 


Two RS-232C serial !/O ports plus two 8 bit parallel 1/O ports 
101-1080A A & T with manual 
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Prices may be slightly higher at our retail locations. Please call the store nearest you for local price and availabilit 


An Ada Tutorial, Part I 


by Mark M. Zeiger 


n 1974, faced with increasing software costs 

and programs written in a multitude of differ- 

ent languages, the Department of Defense 

(DoD) decided to adopt an “official” lan- 
guage. Finding none of the “Algol-like’”’ languages 
acceptable, they commissioned a number of differ- 
ent groups to submit specifications for a language. 
After a process of integrating and modifying the 
suggestions, they came up with a language they 
chose to call ‘“‘Ada” in honor of Augusta Ada By- 
ron, the daughter of Lord Byron and assistant to 
Charles Babbage (the inventor of the Analytic 
Machine—the first computer). Because Ada will 
be the language that all programmers will have to 
use when programming for the Department of De- 
fense, it is undoubtedly going to become one of the 
important languages of the 1980's. 

Ada is a big language and has many features 
not found in other popular languages. It is de- 
signed for easy readability, for strong typing and 
many data types, and for portability. Ideas for the 
language were accepted from a huge cross-section 
of programmers from all over the world to make 
sure that all modern language features were at 
least considered. Because Ada is so big, the 
chances of seeing a full implementation of the lan- 
guage on a microcomputer (or at least an eight-bit 
computer) are slim. However, a few software 
houses have already written modified versions of 
Ada (R&R Software has published Janus and Su- 
persoft has written Ada); therefore implementa- 
tions of Ada that run under CP/M are already 
realized. It should be noted, however, that the 
DoD will not accept any implementations of Ada 
that deviate from the published standard (The 
Ada Language Reference Manual, MIL-STD 
1815), whether they be supersets or subsets. In 
fact, variations may not even be given the name 
“Ada.” The DoD is really determined this time to 
have only one language. 

Since we are going to be seeing bigger and bet- 
ter implementations of Ada on micros, this article 
is intended to give the reader some information on 
how to write in Ada. Just a casual glance at Ada 
will tell you that this is a Pascal-like language. In 
fact, with just a few notes on Ada syntax on hand, 
it is a very simple matter to take a complicated 


Mark M. Zeiger, 198—01B 67th Ave., Flushing, 
NY 11365. 
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Pascal program and rewrite it in Ada. In this arti- 
cle, I will describe some of the features of the lan- 
guage by comparing it to Pascal. Then some of the 
more advanced features of Ada will be described. 
Since space is limited, I will not be able to discuss 
the whole language, so I will talk about the char- 
acteristics I personally found interesting. At the 
end of the article, I have listed a few references 
which may be read if you wish to learn more about 
Ada. 

There are a few conventions I will use in this 
text. Any underlined word is an Ada (or Pascal) 
reserved word. Comments in Ada are indicated by 
using two dashes (--) followed by the comment. 
The comment may continue to the end of the line 
only. This is mentioned now because comments 
are used in program segments to describe some of 
the features of Ada. I will also use “squiggly” 
brackets to indicate Pascal comments, in accor- 
dance with the Pascal convention. 


Program Structure 

In its basic form, the structure of an Ada program 
is similar to Pascal. The overall structure of pro- 
grams written in each of the languages would be: 


program PASCAL_PROG; package body ADA_PROG is 

const PI = 3.1459; PI constant := 3.14159; 

type DAY = (MON, TUE, WED); type DAY is (MON, TUE, WED); 
var I : integer; I : integer; 

WD : DAY; WD: DAY; 


procedure PROC! (X : integer); procedure PROC! (X : integer) is 
{procedure declarations}; -- procedure declarations; 
begin begin 
{procedure statements} -- procedure statements; 
end; end PROC]; 


function F1(Y : integer) : real; function F1(Y : integer) 
{function declarations}; return float is 
begin --function declarations; 
{function statements} in 
k --function statements; 
end Fl; 


rogram body} begin 


{p 
end. --program body; 


end ADA_PROG; 


As Pascal programmers know, each procedure 
may take on the structure of a program with local 
const, type, and var declarations and with its own 


procedures and functions. The same is true in Ada. 
However, the above structure did not show some of 
Ada’s flexibility. In Pascal, const, type, and var 
declarations must occur in the order listed and in 
groups. This is not true in Ada. At the beginning 
of the Ada program we could have written: 


integer; --a variable declaration 
constant PI := 3.14159; 

type DAY is (MON, TUE, WED); 

WD : DAY; --another variable declaration 


Naturally the definition of type DAY must pre- 
cede the declaration of any variable of that type, 
but this is the only restriction on order. In Pascal, 
all variables which are used must be declared, 
while in Ada there are a few exceptions to this rule 
as we will see later. 


Program Statements 

Even though we haven’t scratched the surface in 
describing variables and type declarations used in 
Ada, we will use the small amount already de- 
scribed in discussing executable statements. 


Assignment Statements 

The symbol := is used in Pascal and Ada in an 
identical manner. Ada does have an advantage 
over Pascal in that initial values may be assigned 
to variables at the time of declaration. For in- 
stance, the statement 


DELTA : integer := 20; 


declares DELTA to be an integer and assigns it an 
initial value of twenty. Furthermore, if this decla- 
ration occurs in a procedure, function, or block 
(blocks will be described later), then the variable 
will be set to that initial value each time the sub- 
routine or block is invoked. Much nicer than ini- 
tializing single variables is the ability to initialize 
composite types such as arrays and records. Com- 
pare the Ada declaration 


A : array (1..3,1..3) of integer := ( (1,2,3) 
(4,5,6) 
(7,8,9)  ); 


to the inelegant Pascal statements: 


A: array [1..3,1..3] of integer; 


All) c= ds A[L2] = 
A[2,1] := 4; A[2,2] := 
A[3,1] := 7; A[3,2] := 


2; A[1,3] := 
SVAI2 Sis 
8; A[3,3] := 


The assignment statement often requires the use 
of arithmetic operators. Except as noted, operands 
may not be of different types. You may not add an 
integer and real number, even if the result is going 
to be assigned to a real variable. Later in the arti- 
cle we will see how to perform operations on dif- 
ferent types. 


The operations available in Ada are: 


addition 

subtraction 

multiplication 

division—Integer division truncates. 

exponentiation—second operator 
must be an integer. If the first 
operator is real, then the second 
may be an integer 


rem division remainder 
mod modulo remainder 


The rem and mod operators are different. The re- 
sult of the rem operation always has the sign of the 
first operand, so that 12 rem 5 and 12 rem —5 are 
both equal to 2, while —12 rem 5 and —12 rem 
— 5 are equal to —2. With the mod operator, if we 
assume that the second operator is N, then the re- 
sult of the mod operation is in the range O..N—1 
if N is positive and in the range O...N+1 if N is 
negative. 


s you’ve noticed, the semicolon is used in both 

Ada and Pascal, but the use is different in 
each language. In Pascal the semicolon is used as a 
statement separator, and it’s safe to say that its use 
has befuddled many a beginning Pascal program- 
mer. The semicolon is used in Ada as a statement 
terminator. Therefore one does not usually have a 
problem deciding when a semicolon is necessary or 
not. In Pascal the semicolon especially causes 
problems with if-then-else statements and near the 
end of blocks where many statements are ending. 
This problem does not occur in Ada. However, 
there is a logic to the use of the Pascal semicolon 


Ada is a big language designed for easy readability, strong 
typing and portability. The chances of seeing a full 
implementation on a microcomputer are slim. 
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An Ada Tutorial, Part I continued. . . 


and one can get accustomed to it in a short 
while. 


Control Statements 

Ada and Pascal have essentially the same types of 
control structure and statements. They are the if- 
then-else statement, the case statement, and com- 
mands which accomplish loops. 


If-then-else 
Unlike Pascal, Ada is capable of executing multi- 
ple statements as a result of an if statement. Now 
you’re probably saying that Pascal may also exe- 
cute many statements if the boolean expression in 
the if clause evaluates to “true,” but the actual 
syntax of Pascal is: 
if <boolean expression> then _<statement> 
{else <statement> }; 
Of course in Pascal a statement may be a group of 
statements in a_begin-end block, so in reality the 
Pascal if-then is similar to Ada’s. We will see, 
however, that nested conditionals in Ada are much 
easier to work with. 
The actual format of Ada’s if-then statement 
is: 
if( <boolean expression>then 
statement 1; 
statement 2; 


end if; 
or 


if <boolean expression>then 
statement 1; 
statement 2; 


statement —n; 
else 


statement 


end if; 


The if-then statement also has an additional 
elseif clause. 


This is used as follows: 


if x = a then 

-- one or more statements; 
elseif x = b then 

-- one or more statements; 
elseif x = c then 

-- one or more statements; 
end if; 


It’s pretty obvious that if x = a then the first 
group of statements will be executed, if x = b then 
the second group will be performed, and if x = c 
then control will pass to the third group. If x is not 
equal to a, b, or c then the program will execute 
the group of statements in the else clause. The else 
clause is of course optional or may even be present 
and contain the null statement. The null statement 
is Ada’s “NOP”. Notice that if the elseif com- 
mand was not available, similar results could still 
be accomplished (as one would have to do in Pas- 
cal) by using the separate else and if commands. 


The code would be: 
if x = a then -- start block 1 
-- statements; 
else 


if x = b then -- start block 2 
-- statements; 
se 
if x = c then 


-- statements; 


--start block 3 


-- statements; 
end if; end block 3 
end if; - end block 2 
end if; -- end block 1 


Obviously the first structure is much easier to 
understand and the programmer is less likely to 
match up the wrong end or else with the corre- 
sponding if. This goes along with Ada’s philosophy 
of making programs readable, writeable, and error 
free. 


Loops 

Naturally Ada has provisions for loops. How could 
any high level language not have them? And Ada 
does a very nice job in this department. The basic 


Nested conditionals are much easier to work with 
in Ada than in Pascal. 
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NEW! TPM* for TRS-80 Model Il 
NEW! System/6 Package 


Computer Design Labs 


280 Disk Software 


We have acquired the rights to all TDL software (& hardware). TOL software has long had the reputation of being the best in the 
industry. Computer Design Labs will continue to maintain, evolve and add to this superior line of quality software 


— Carl Galletti and Roger Amidon, owners. 


Software with Manual/Manual Alone 


All of the software below is available on any of the 
following media for operation with a Z80 CPU using 
the CP/M* or similar type disk operating system 
(such as our own TPM’). 


for TRS-80* CP/M (Model I or I!) 

for 8” CP/M (soft sectored single density) 
for 5‘%’’ CP/M (soft sectored single density) 
for 5%’ North Star CP/M (single density) 
for 51%” North Star CP/M (double density) 


BASIC | 

A powerful and fast 280 Basic interpreter with EDIT, 
RENUMBER, TRACE, PRINT USING, assembly language 
subroutine CALL, LOADGO for “chaining”, COPY to 
move text, EXCHANGE, KILL, LINE INPUT, error inter- 
cept, sequential file handling in both ASCII and binary 
formats, and much, much more. It runsina little over 12 
K. An excellent choice for games since the precision 
was limited to 7 digits in order to make it one of the 
fastest around. $49.95/$15. 


BASIC Il 
Basic | but with 12 digit precision to make its power 
available to the business world with only a slight sacrifice 
in speed. Still runs faster than most other Basics (even 
those with much tess precision). $99.95/$15. 


BUSINESS BASIC 

The most powerful Basic for business applications. It 
adds to Basic || with random or sequential disk files in 
either fixed or variable record lengths, simultaneous 
access to multiple disk files, PRIVACY command to 
prohibit user access to source code, global editing, 
added math functions, and disk file maintenance capa- 
bility without leaving Basic (list, rename, or delete). 
$179.95/$25. 


ZEDIT 
A character oriented text editor with 26 commands 
and “macro” capability for stringing multiple commands 
together. Included are a complete array of character 
move, add, delete, and display function. $49.95./$15. 


ZTEL 

Z80 Text Editing Language - Not just a text editor. 
Actually a language which allows you to edit text and 
also write, save, and recall programs which manipulate 
text. Commands include conditional branching, subrou- 
tine calls, iteration, block move, expression evaluation, 
and much more. Contains 36 value registers and 10 text 
registers. Be creative! Manipulate text with commands 
you write using Ztel. $79.95/$25. 


TOP 
A Z80 Text Output Processor which will do text 
formatting for manuals, documents, and other word 
processing jobs. Works with any text editor. Does 
justification, page numbering and headings, spacing, 
centering, and much more! $79.95/$25. 


MACRO | 

A macro assembler which will generate relocateable 
or absolute code for the 8080 or Z80 using standard 
Intel mnemonics plus TDL/Z80 extensions. Functions 
include 14 conditionals, 16 listing controls, 54 pseudo- 
ops, 11 arithmetic/logical operations, local and global 
symbols, chaining files, linking capability with optional 
linker, and recursive/reiterative macros. This assembler 
is SO powerful you'll think it is doing all the work foryou. It 
actually makes assembly language programming much 
less of an effort and more creative. $79.95/$20. 


MACRO Il 
Expands upon Macro I's linking capability (which is 
useful but somewhat limited) thereby being able to take 
full advantage of the optional Linker. Also a time and 
date function has been added and the listing capability 
improved. $99.95/$25. 


LINKER 

How many times have you written the same subroutine 
in each new program? Top notch professional pro- 
grammers compile a library of these subroutines and 
use a Linker to tie them together at assembly time. 
Development time is thus drastically reduced and 
becomes comparable to writing ina high level language 
but with all the speed of assembly language. So, get the 
new CDL Linker and start writing programs in a fraction 
of the time it took before. Linker is compatible with 
Macro! &Il as well as TDL/Xitan assemblers version 2.0 
or later. $79.95/$20. 


DEBUG I! 

Many programmers give up on writing in assembly 
language even though they know their programs would 
be faster and more powerful. To them assembly language 
seems difficult to understand and follow, as well as 
being a nightmare to debug. Well, not with proper tools 
like Debug |. With Debug! you can easily follow the flow 
of any Z80 or 8080 program. Trace the program one 
step at a time or 10 steps or whatever you like. At each 
step you will be able to see the instruction executed and 
what it did. If desired, modifications can then be made 
before continuing. It's all under your control. You can 
even skip displaying a subroutine call and up to seven 
breakpoints can be set during execution. Use of Debug! 
can pay foritself many times over by saving you valuable 
debugging time. $79.95/$20. 


DEBUG II 

This is an expanded debugger which has all of the 
features of Debug! plus many more. You can “trap” (i.e. 
trace a program until a set of register, flag, and/or 
memory conditions occur). Also, instructions may be 
entered and executed immediately. This makes it easy 
to learn new instructions by examining registers/memory 
before and after. Anda RADIX function allows changing 
between ASCII, binary, decimal, hex, octal, signed 
decimal, or split octal. All these features and more add 
up to give you a very powerful development tool. Both 
Debug! and || must runonaZ80 but willdebug both Z80 
and 8080 code. $99.95/$20. 


ZAPPLE 
A Z80 executive and debug monitor. Capable of 
search, ASCII put and display, read and write to I/O 
ports, hex math, breakpoint, execute, move, fill, display, 
read and write in Intel or binary format tape, and more! 
on disk $34.95/$15 


APPLE 
8080 version of Zapple $34.95/$15. 


NEW! TPM nowavailable for TRS-80 Model 
mW 
TPM* 

A NEW Z80 disk operation system! This is not CP/M*. 
It's better! You can still run any program which runs with 
CP/M* but unlike CP/M* this operating system was 
written specifically for the Z80* and takes full advantage 
of its extra powerful instruction set. In other words its 
not warmed over 8080 code! Available for TRS-80* 
(Model | or Il). Tarbell, Xitan DDDC, SD Sales “VERSA- 
FLOPPY”, North Star (SD&DD), and Digital (Micro) 
Systems. $79.95/$25. 


SYSTEM MONITOR BOARD (SMB II) 
Acomplete |/0 board forS-100systems. 2 serial ports, 
2 parallel ports, 1200/2400 baud cassette tape inter- 


face, sockets for 2K of RAM, 3-2708/2716 EPROM's or 


ROM, jump on reset circuitry. Bare board $49.95/$20. 


ROM FOR SMB Il 
2KX8 masked ROM of Zapple monitor. Includes source 
listing $34.95/$15. 


PAYROLL (source code only) 
The Osborne package. Requires C Basic 2. 
5” disks $124.95 (manual not included) 
8" disks $ 99.95 (manual not included) 
Manual $20.00 


ACCOUNTS PAYABLE/RECEIVABLE 
(source code only) 
By Osborne, Requires C Basic 2 
5" disks $124.95 (manual not included) 
8” $99.95 (manual not included) 
Manual $20.00 


GENERAL LEDGER (source code only) 
By Osborne. Requires C Basic 2 
5" disks $99.95 (manual not included) 
8" disks $99.95 (manual not included) 
Manual $20.00 


Cc BASIC 2 
Required for Osborne software. $99.95/$20. 
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SYSTEM/6 
TPM with utilities, Basic | interpreter, Basic E compiler, 
Macro | assembler, Debug | debugger, and ZEDIT text 
editor. 
Above purchased separately costs $339.75 
Special introductory offer Only $179.75 with coupon!! 


"$1 60.00 
Sa 


ORDERING INFORMATION 
Visa, Master Charge and C.O.D. O.K. To order call or 


write with the following information. geaeemses \ 
. Name of Product (e.g. Macro |) ey 
. Media (e.g. 8” CP/M) 

. Price and method of payment (e.g. C.O.D.) include 
credit card info. if applicable. 

. Name, Address and Phone number. 

. ForTPM orders only: Indicate if for TRS 80, Tarbell, 
Xitan DDDC, SD Sales (5%” or 8"). ICOM (5%”" or 
8"), North Star (single or double density) or Digital 
(Micro) Systems. 

6. N.J. residents add 5% sales tax. 


aL, On 


Manual cost applicable against price of subsequent 
software purchase in any item except for the Osborne 
software. 


For information and tech queries call 


609-599-2146 


These are NEW Toll Free numbers 
For phone orders ONLY call toll free 


1-800-458-3491 Ext. 15 
In PA only 1-800-252-3567 


OEMS 
Many CDL products are available for licensing to 
OEMs. Write to Carl Galletti with your requirements. 


* Z80 is a trademark of Zilog 

* TRS-80 is a trademark for Radio Shack 

* TPM is a trademark of Computer Design Labs. It is not 
CP/M* 

* CP/M is a trademark of Digital Research 

Prices and specifications subject to change without 

notice. 


DEALER INQUIRIES INVITED. 


COMPUTER 
DESIGN 
LABS 


342 Columbus Avenue 
Trenton, N.J. 08629 


An Ada Tutorial, Part I continued... 


command is called, of all things, “loop” and the cumbersome in this case, so Ada allows a more 
simplest form is: compact form of the exit command: 
loop J := 1; 
statement]; loop 
statement?2; exit when I = 10; 
put(I); 
I:=I1+1; 
statement-n; end loop; 
end loop; Again we see how Ada syntax makes programs 
easier to read and more natural to write. 
Like Pascal, Ada has a form of the while loop. 
It is: 
while X < 10 loop 
-- statements; 
end loop; 
Once the value of X becomes less than 10, the loop 
terminates. We may also construct a loop similar 
to Pascal’s repeat-until structure by proper place- 
ment of an exit statement: 


Obviously there is no way to get out of the above 
loop, so we will need a few more commands to 
make loops useful. The most important is the exit 
command which transfers control to the first state- 
ment after the end loop. For example: 


end if; loop 

put(I);-- output statement to console device -- statements; 

[r= + i 

end loop; ? 
exit when I = 10; 
The “‘if-then exit end if” sequence is a little bit end loop: 
[ SIGMOTEK INTERNATIONAL CORPORATION 
MICROANGELO HARD COPY 327 Clarkin Ct, Walnut Creek, CA 94598 
(415) 938-5097 


MICROPROCESSOR CRYSTALS (MHz) 


1.000, 1.2288, 1.6896, 1.8432 4.00 each 
2.000, 2.097152, 2.4576 3.00 each 
3.2768, 3.579545, 4.000, 4.194304, 4.433619 2.00 each 
4.9152, 5.000, 5.0688, 5.185, 5.7143 2.00 each 
6.000, 6.144, 6400, 6.5536, 7.000 2.00 each 
7.3728, 8.000, 10.000, 11.000, 12.000 2.00 each 
14.31818, 15.575, 18.000, 18.432 2.00 each 
19.6608, 20.000, 22.1184, 32.000, 48.000 2.50 each 


TUNING FORK CRYSTALS (3 x 8 Minature) 


32.768 KHz 1.50 each 
30 KHz to 50 KHz Inquire 
EPROMS 
2532 (5V, 450 ns) 8.00 each 
2732 (5V, 450 ns) 7.50 each 
2764 (5V, 450 ns) 14.00 each 
.00 .20 ~40 60 . 80 1 DYNAMIC RAMS 
SPRINT - A SCREEN PRINTING PROGRAM 4164 (150 ns) 10.00 each 
S-PLOT - A SCREEN PLOTTING PROGRAM 


BOOKS PUBLISHED Hg co MCGRAW-HILL, 
LABORATORY COMPUTER SYSTEMS, INC. 15% off list price. Please add $1.00 for each book for 4th class delivery. 


139 Main Street, Cambridge, MA 02142 Minimum order $10.00. For shipping include $2.00 for UPS ground. $3.00 
(617) 547-4738 for UPS Blue Label Air. California residents add sales tax. 
CIRCLE 84 ON READER SERVICE CARD CIRCLE 41 ON READER SERVICE CARD 
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An Ada Tutorial, Part I continued . 


Since the test for leaving the loop takes place at 
the end of the loop, this control block acts just like 
the Pascal repeat-until. 

We may naturally have loops within loops and it 
is here that the exit command really comes in han- 
dy. If a loop is given a label, then the exit state- 
ment may specify which loop it is to leave. For 
example: 


XXX: while I /= 25 loop -- “/=” means 
statement1; “not equal to” 
statement2; 
YYY: loop 

statement3; 
statement4; 
if J = 7 then 
statement5; 
exit XXX; since there is a 
label on the 

end if; exit statement, 

control is passed 

to just after “‘end 

loop XXX;” 


end loop YYY; 
statement6; 


MICROSTAT® - Release 3.0 
MICROSTAT® + baZic® = PERFORMANCE 
The best just got better! MICROSTAT has been the 
leader in the statistics field for microcomputers since 
1979, and the new release 3.0 outperforms and is 
noticeably faster than previous versions. Just a few 
of the features include: 

GREATER ACCURACY 

BCD with up to 14 digit precision; 
PROGRAM ENHANCEMENTS 

Missing data capabilities and many more; 


FASTER EXECUTION 
Calculation time greatly reduced; 


DYNAMIC FILE ALLOCATION 
Data can be inserted, added, or deleted: 


SPECIAL PRICE: 
For a limited time get MICROSTAT plus baZic 
complete with program disk and documen- 
tation for each for $395.00, save $50.00! 


The MICROSTAT - baZic version requires: a Z80 CPU, 
CP/M™ and 48K of memory. Available formats: 8” SD 
disk or 5%" North Star only. Check with your dealer for 
other formats. Also available for: Microsoft's Basic-80™, 
North Star DOS and IBM. For more information, call 


or write: 
ECOSOFT INC. ; 
P.O. Box 68602 g 
Indianapolis, IN 46268-0602 = 
(317) 255-6476 


MICROSTAT is a registered trademark of ECOSOFT, INC. 
baZic is a registered trademark of MICROMIKES, INC 
CP/M is a registered trademark of DIGITAL RESEARCH 
Basic-80 is a registered trademark of MICROSOFT 
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end loop XXX; 
If a loop is given a label, then the corresponding 
end loop must also have that label. 


Iteration 
Ada also has iteration structures. Like Pascal’s for 
I := 1 to 10 do, you may write in Ada: 
for I in 1..10 loop 
-- statements; 


end loop; 
And you may go backwards as in most other lan- 


guages: 

for I in reverse 1..10 loop 
-- statements; 

end loop; 


but as in Pascal, you may only increment or decre- 
ment by 1. 

This iteration scheme has one interesting fea- 
ture not found in Pascal. The control variable need 
not (and may not) be declared in the program. So 
if we have: 


integer; 
= 5; -- I now has a value of five 


es 
es 


ANNOUNCING 

THE C86™ C COMPILER 

— THE COMPILER THAT SPEAKS 
THE LANGUAGE OF THE FUTURE! 


Kernighan and Ritchie’s book, The C-Programming Language, is 
the key source for C. Just as fundamental is the C86 ™ C 
Compiler. 

The C861 C Compiler is especially designed for the IBM® 
Personal, IBM® Display Writer, CP/M-86° and MS-DOS® . 

For further information on the C-programming language 

and the C86 1+«C Compiler, please contact: 


C86 is @ trademark of Computer innovations, Inc., CP/M-86 1% Computer Innovations, Inc. 
is a trademark of Digital Research: IBM and MS-OOS are 75 Pine Street 
registered trademarks of International Business %G Lincroft, New Jersey 07738 
Machines. Inc AX ‘ 

Telephone: (201) 530-0995 
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When one 
_ terminal 
isnot enough — 


: ed 


MuSyYS Slave! 


Expand your Z80A/S-100 based micros with MuSYS slaves 
and TurboDOS”. Our NET/82 slave board has everything 
you need for another station: Z80A CPU, up to 128K bytes 
of RAM, two serial ports, a priority interrupt controller, 
memory parity checking, and many other features. There 
isn't a more cost-effective way to add complete, hardware- 
isolated network slaves to your system. And TurboDOS 
makes it even better. It’s faster than CP/M* for systems 
functions, supports larger files (184 MB) and disks (1048 
MB), and unlike CP/NET* it’s compatible with nearly all 2.2 
applications software. Many features which are optional, 
extra-cost, or not available at all in CP/M are standard with 
TurboDOS. Cail today for all the details. Generous dealer/ 
OEM discounts available. 


*TurboDOS is a trademark of Software 2000, Inc.; CP/M and CP/NET are 
trademarks of Digital Research, Inc.; NET/82 is a trademark of MuSYS Corp. 


NYSUS 


Specialists in Multi-user Microsystems 


1451 Irvine Bivd., Suite 11 
Tustin, CA 92680 

(714) 730-5692 

TWX: 910-595-1967 
CABLE: MUSYSTSTN - 
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for I in 7..21-- this is a new I of type 
loop -- “integer” 
-- since 7..21 is a range of 
-- integers 


end loop; -- I now has a value of 21 
put(I); -- this is the first “I’’. Five will 
-- be typed 
-- The “I” of the loop does not 
-- exist 
-- after the “end loop;” 

This is a nice feature when working a lot with 
arrays since it is usually an inconvenience to have 
to declare indices every time you have to scan an 
array. But it also has its drawbacks. Suppose you 
wish to find the first element of a 6 by 6 array that 
is less than zero and get the indices of that ele- 
ment. The following will not work: 


X : array (1..6,1..6) of integer; 
I, J : integer; 


OUTER: for I in 1..6 loop 
INNER: for J in 1..6 loop 
exit OUTER when X(I,J) < 0; 
end loop INNER; 
end loop OUTER; 
put(I); put(J); 
-- the correct indices will not be typed 
Since the I and J in the loop are different from 
those declared outside the loop, the variables con- 
taining the indices cease to exist when control 
passes outside loop OUTER. The problem would 
have to be solved in the following manner: 
X : array (1..6,1..6) of integer; 
I, J : integer; 


OUTER: for I1 in 1..6 loop 
INNER: for J1 in 1..6 loop 

if X(11,J1) < 0 then 

Is= Hh; -- put I1 and J1 in variables 
-- that 
J:= Ji; -- exist outside the loop. 
exit OUTER; -- now leave both loops 

end if; 

end loop INNER; 
end loop OUTER; 

If you are familiar with Pascal, you know that 
the control variable of an iteration need not be an 
integer. Likewise in Ada. If we define “CITY” as 
the following type: 

type CITY is (CHICAGO, NEW_YORK, 

BOSTON, LOS_ANGELES); 

then the structure 
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for METRO in CHICAGO..LOS_ANGELES loop 


-- statements; 
end loop: 


is perfectly legal and METRO will be an unde- 
clared variable of type CITY. As in most other 
languages, the control variable must be a discrete 
type (i.e., it can not be of type real). 


The CASE Statement 

Except for syntax, the Ada case statement is just 
like the case statement in Pascal. The following 
example will suffice to show how it is used: 


type MONTH is (JAN,FEB,MAR, APR, 
MAY,JUN,JUL,AUG,SEP,OCT,NOV, 
DEC); 

type SEASON is (SUMMER,FALL,WIN- 
TER,SPRING); 

THIS_MONTH : MONTH; 

THIS_SEASON : SEASON 

HOLIDAY_TIME : boolean; 


case THIS_MONTH is 


JAN | FEB | MAR = THIS_SEASON : 
THIS_SEASON : 


APR | MAY ! JUN = 
OCT | NOV !| DEC = 


Note that in the Pascal standard, the case state- 
ment may not contain an else clause, even 
though most implementations of Pascal do in- 
clude that feature. 


The GOTO Statement 

This much maligned statement has none of the re- 
strictions found in Pascal. Actually, one of the 
most important uses of the goto is to transfer con- 
trol out of deeply nested loops, and with Ada’s exit 
command there is even less need for a goto than 
there is in Pascal. The destination of a goto is sig- 
nified by a label in double angle brackets 
(<<LABEL>> ) so that the label stands out. 
The use would be: 


goto DO_OVER; 


<<DO_OVER>> 
-- statements; 


WINTER; -- ‘’’ means “‘or”’ 
SPRING; 


THIS SEASON ;= FALL; 
if THIS_MONTH = DEC then 
HOLIDAY_TIME := true; 


end if; 


JUL | AUG | SEP => THIS_SEASON := SUMMER; 


end case; 
The case statement may also have a “when 


others” clause. Using the types and variables 
defined in the previous example and also 


NUMBER_OF_DAYS :: integer; 


we have 


case THIS_MONTH is 


when SEP | APR | JUN | NOV => NUMBER_OF_DAYS := 30; 


when FEB 


when others 
case; 


=> NUMBER_OF_DAYS := 28; 


-- forget leap year 


=> NUMBER_OF_DAYS := 31; 
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You may not use a goto to transfer control to a 
label of a loop statement. Also, you may not trans- 
fer control into an if, case, or loop statement or 
into or out of a procedure or function. 


BLOCKS 

One feature of Ada that is entirely missing from 
Pascal is the block that is reached through the nor- 
mal flow of a program. This feature does exist in 
PL/1. One purpose of the block is to bring vari- 
ables into existence for a short period of time, as 
in: 

-- main program 


declare -- declaration of local 
: -- variables 
TEMP : integer; 


begin 


-- block begins 


-- TEMP disappears, 
block ends 


-- main program continues 


Procedures 

These most powerful structures of Pascal are nat- 
urally found in Ada. As an example of the syntax, 
let’s look at a procedure which will multiply the 
elements of an array by a scalar (a single number). 
We will assume that the following type is defined 
globally in the package: 


type LIST is array(1..10) of integer; 
The procedure is: 


procedure MULT_ARRAY (I: integer; X : in 


out LIST) is 
-- declare any constants, types, or 
-- variables local to 
-- the procedure here. There are 
-- none 
-- in this case. 
begin 
for J in 1..10 loop 
X(J) := X(J) * 
end loop; 
end MULT_ARRAY; 
In the program the procedure would be invoked by 
a statement such as: 


MULT_ARRAY‘(17, M); -- M is of type LIST 


The unfamiliar item in the procedure is the 
mode of the parameter (in this case declaring 
LIST as “in out’). There are three parameter 
modes in Ada. They are “‘in’’, “out’’, and “in out”’. 
If the mode of the formal parameter is “in’’, then 
its value is provided by the actual parameter in the 
calling statement. The value may not be changed 
by the procedure, so in effect it becomes a param- 
eter constant. The default mode is “‘in’’, so in the 
above example “I’’ is an “in” parameter. If a pa- 
rameter is “‘out’’, then its value is assigned by the 
procedure but it cannot be read by the procedure. 
In the calling statement the actual parameter 
would have to be a variable since it is going to be 
assigned a value. An “in out” parameter may be 
both read by the procedure and assigned a value 
by the procedure, so the actual parameter would 
also have to be a variable. The “in out’? mode is 
equivalent to the “var” mode of a parameter in 
Pascal. 

For those not familiar with the terms “actual” 
and “formal” parameters, the actual parameters 
are those which are part of the calling statement 
(17 and M in the above example), while the formal 
parameters are those in the procedure (I and X in 
the above). 

Ada also has a feature called “default” param- 
eters. Let’s say that most of the time we want to 
multiply our array by ten. We would then define 
our procedure as: 

procedure MULT_ARRAY (I: integer := 10; 

X in out LOOP) is 
-- everything else is the same as 
-- above 

end MULT_ARRAY; 

The procedure may now be called by 

MULT_ARRAY(X => M); 

-- M is an array of type LIST 

Since the first parameter is omitted, the value of 
“T” will take on its assigned default value of ten. 
But now the second parameter is out of position in 
the acutal parameter list, so a notation called 
“named notation” must be used. This associates 
the actual parameter M with the second formal 
parameter X. Of course we can still call 
MULT_ARRAY by: 

MULT_ARRAY‘(4, M); 
in which case the default value of “‘I’’ is ignored. 
The return from a procedure normally occurs 
when control reaches the end of the procedure 
block. However, if the return is desired when a 


Ada has a useful feature called ‘‘default’’ parameters. 
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certain condition occurs, the programmer may use 
the return statement to return control to the call- 
ing statement. 


Overloading 
Suppose we want to multiply each element of a 
twenty-element array by a constant. Obviously we 
can’t use MULT_ARRAY since it expects the 
second parameter to be of type LIST which is ar- 
ray(1..10) of integer. Therefore we have to create 
another procedure. It will be: 

type LIST2 is array(1..20) of integer; 

procedure MULT_ARRAY‘(I: integer; X : in 

out LIST2) is 
begin 
for J in 1..20 loop 
X(J) := X(J) * I; 
end loop; 

end MULT_ARRAY; 
But now we have two procedures called 
MULT_ARRAY. It’s okay because Ada allows 
what is called “overloading.” If we have two dif- 
ferent variables 

X10: LIST; 

X20 : LIST2; 
then the procedure calls 

MULT_ARRAY(7, X10); 
and 

MULT_ARRAY‘(7, X20); 
will each call the correct procedure by first exam- 
ining the types of the actual parameters and 
checking to see in which of the two procedures 
named “MULT_ARRAY’” the actual parameters 
match the formal parameters. Of course if there is 
no procedure called “MULT_ARRAY” which 
matches the actual parameters, then we have an 
error. 


Functions 
Just like Pascal, Ada has subroutines.called “‘func- 
tions.” And like a Pascal function, an Ada func- 
tion evaluates to a single value. Suppose we wish to 
add the corresponding elements of two structures 
of type LIST (array (1..10) of integer): 


function ARRAY_SUM (A, B : LIST) return 
LIST is 
C: LIST; -- local variable for storing sum 


begin 
for I in 1..10 loop 
C(I) = A(I) + BUD); 


end loop; 
return C; -- the entire array may 
-- be referred 
end ARRAY_SUM;_ -- to as “C” 


If R, S, and T are variables of type LIST, then 
R := ARRAY_SUM(S,T); 
will give us the sum of S and T in R. 
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This leads us to a really great feature of Ada. 
Instead of calling the function “ARRAY_SUM”, 
let’s name the function “+”: 


function “+” (A, B: LIST) return LIST is -- quotes are necessary 
C : LIST; -- around the plus sign 
begin 
for I in 1..10 loop 
C(D) := A(D) + BD; 
end loop; 


” 


-- this plus sign is 
-- integer addition 


We can now get the sum of S and T in R by us- 
ing 


R:=S4+T; 


-- no quotes around the plus 
-- sign here 


hus we have overloaded the symbol “+”. Ada 
will determine which addition must be done 
(our defined “‘+”’, predefined integer or real addi- 
tion, or any other ““+” that may be defined) by 
examining the operands (i.e., the actual parame- 
ters) and trying to match them with formal pa- 
rameters of the same type. 
This concludes Part I of the tutorial. In Part II, 
I shall discuss the various “types” that the pro- 
grammer has or may create. 


QCB-9 SINGLE BOARD COMPUTER 
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5%’ Floppy Controller 
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NAKED-09 SS-50 6809 CPU CARD $49.95* 
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% 6K OF EPROM AT EB00-FFFF 2MHZ Version $189.00 Only 

% HIGH QUALITY DOUBLE SIDED PCB SOLDER MASKED —_ SILK SCREENED 
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QBUG RESIDENT MONITOR $50.00 
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* Memory Exam & Exchange »* Zero Memory * Jump to User Program 
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QBUG IS A TRADEMARK OF LOGICAL DEVICES INC.. * Copyright 1981 
PHONE ORDERS: (305) 776-5870 


LOGICAL DEVICES INC. 
COMPUTER PRODUCTS DIVISION 
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TWX: 510-955-9496 » WE ACCEPT VISA, MC, CHECKS, C.O.D., MONEY ORDER 
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UCSD Adaptable Pascal 
Versions 11.0 and IV.0 


by John W. Moore, Robert G. Williams, and John R. Vidolich 


e are in the chemistry department 

of Eastern Michigan University 

and are developing a microcomput- 

er system for text processing, com- 
puter graphics, instrument interfacing, and com- 
puterized test generation. Our equipment includes 
a Cromemco ZPU and TU-ART digital interface, 
64K of static RAM, a Houston Instruments digi- 
tal plotter, a Cambridge Development Labs 
graphics interface, a Tecmar A/D Converter, and 
dot-matrix and daisy-wheel printers. Three Mor- 
row Discus 2D floppy disk drives provide mass 
data storage. Not wishing to be limited to assem- 
bly language programming, we chose Pascal for its 
extraordinary clarity and structure. The UCSD 
implementation was selected since it could be run 
on our CP/M! system and is virtually processor- 
independent. UCSD Pascal also incorporates sev- 
eral powerful extensions to the Pascal defined by 
Jensen and Wirth, most notably string intrinsics, 
block input/output, and random access files. In 
addition, a complete operating system, including a 
powerful screen-oriented editor, a line-oriented 
editor, a file handler, Z80 and 8080 assemblers, a 
linker, and several other utilities are provided. We 
have found these to be very helpful in developing 
programs that collect and analyze data from a 
stopped-flow kinetics apparatus and in producing 
a library of routines for hard-copy and CRT 
graphics. This article describes our experiences in 
bringing up UCSD Pascal using the hardward de- 
scribed above. 

Booting Standard UCSD Pascal, Version II.0, 
with our CP/M-based system was reasonably 
straightforward, though it did require three sepa- 
rate diskettes. Version II.0 is distributed on single- 
density diskettes, but since we were using Thinker 
Toys’ double-density CP/M, it was necessary to 
boot CP/M with a double-density diskette, reset 
drive A to single density, and insert the single- 
density diskette containing the UCSD Pascal 
bootstrap loader (a CP/M .COM file). We could 
then complete the bootstrap by executing the load- 
er program and inserting the Pascal system disk. 
We also encountered a minor problem in that the 


Department of Chemistry, Eastern Michigan Uni- 
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cursor-control features of our console terminal, a 
Microterm ACT-V, required control characters 
(such as CTL-P) that UCSD Pascal uses for other 
purposes and would not transmit to the terminal. 
Following Helmers’ example? we solved this prob- 
lem by setting the most significant bit of each cur- 
sor-control character, fooling Pascal but not the 
terminal, which looks only at the seven low-order 
bits. More recently another solution to this prob- 
lem has been published,? but we have not tested 
it. 

While we were quite pleased with Standard 
UCSD Pascal II.0, we did notice a few undesirable 
features. First, Pascal was available only on single- 
density diskettes and one of our applications, test 
generation, requires a large amount of disk stor- 
age. Clearly, a double-density Pascal is a desirable 
option. Furthermore, the Pascal II.0 operating sys- 
tem could access only two disk drives. Upon call- 
ing SofTech Microsystems, the licensed supplier 
for UCSD Pascal, we were told that an Adaptable 
Pascal, permitting double-density disk formats 
and access to more than two disk drives, had been 
developed. In February 1980 we received Adapt- 
able Pascal, Version II.0, as a replacement for our 
standard version in exchange for reporting our ex- 
periences in using the new system. 

The Adaptable System II.0 is distributed on 
four IBM-3740-compatible 8’ floppy diskettes, 
and consists of a CP/M disk, two Pascal disks, and 
a utilities disk. The Pascal disks are organized in 
three images (or parts), each small enough to fit 
on a 5%" minifloppy, and a DISKCHANGE pro- 
gram is provided to extract a given floppy-disk 
image. However, users having only 544" disk drives 
will have to find a system capable of reading 8” 
diskettes and writing 5%’ diskettes, or they will 
not be able to convert the distribution diskettes to 
their format. The operating systems provided are 
the full Adaptable system, permitting multiple 
floppy disk formats and user-defined peripherals, 
and a limited version that uses CP/M’s basic in- 
put/output system (BIOS). We decided to boot 
the CP/M Adaptable system first, since it prom- 
ised to be a much easier task. Even so, we faced an 
immediate problem—the names on our diskettes 
didn’t match the ones given in the manual! By a 
process of elimination we identified the Pascal sys- 


tem disk, booted CP/M, and executed the Pascal 
bootstrap (PASBOOT). This produced 

UCSD Pascal (II.0) Booter version [A2] 

Insert Pascal disk into drive A, then type<re- 
turn> followed by 

Reading secondary bootstrap 

Booting to UCSD Pascal 

Welcome CE20FDA 

Date is... 
at which point the system stopped. Subsequent at- 
tempts did no better, and a phone call to the help- 
ful people at SofTech Microsystems led us to be- 
lieve that the diskettes were preliminary versions 
that might have been written improperly, and so 
the diskettes were returned. 


en days later, a package of four clearly la- 

belled diskettes arrived. Again we followed the 
bootstrapping procedure, but got no further than 
“Booting to UCSD Pascal.’’ However, before call- 
ing SofTech Microsystems we booted the system 
with CP/M, examined the PASBOOT source 
code, and found a conditional assembly directive 
enabling the booter to use CP/M’s debugger, 
DDT. This option had originally been turned off 
(not selected), and so following instructions, we 
modified the bootstrap to run under DDT. Once 
again we tried bringing up the system, and this 
time were greeted with Pascal’s welcoming mes- 
sage. CP/M Adaptable Pascal was up and run- 
ning, but why was it necesssary to use DDT? Act- 
ing on a hunch, we used DDT to run the original 
PASBOOT program, and again successfully 
booted to Pascal. Apparently, the supplied PAS- 
BOOT. COM file had been assembled to run un- 
der DDT, contrary to what was indicated in the 
PASBOOT source file. Soffech Microsystems 
should warn users to reassemble PASBOOT, or at 
least specify whether it is to be run with or without 
DDT. 

Next we tried booting Pascal without the aid of 
DDT by editing the source file and turning off the 
DDT option. Unfortunately, the system would not 
boot. Returning to the source file, we noticed that 
PASBOOT initialized its stack 14 bytes below the 
start of the CP/M BIOS. (The comment accom- 
panying this code indicated that its purpose was to 
accommodate non-standard BIOSs.) Normally 
the BIOS is assumed to be entirely self-contained, 
but after much experimentation, we discovered 
that initializing the stack to 70 bytes below the 


BIOS allowed the system to boot. We concluded 
that the original location of the stack altered mem- 
ory that was referenced by the BIOS, and that the 
BIOS provided by Thinker Toys was not exactly as 
described in the documentation supplied. The lat- 
ter was essentially a copy of Digital Research’s 
CP/M manuals. 

We now had Pascal up and running, but bring- 
ing the system up required booting CP/M, execut- 
ing the Pascal bootstrap, and swapping diskettes. 
Our next task was to produce a diskette that would 
boot directly to CP/M Adaptable Pascal. Track 
zero of this diskette was reserved for the bootstrap, 
consisting of: 

1) CP/M’s basic I/O system (BIOS) contain- 
ing all I/O drivers; 

2) A secondary bootstrap (SECBOOT) to read 
the Pascal interpreter into memory; 

3) A primary bootstrap that would read the 
BIOS and secondary bootstrap into memory, load 
up the stack with parameters describing our sys- 
tem, and then jump to the secondary bootstrap to 
finish booting. 

The adaptable Pascal diskettes included a sam- 
ple primary bootstrap, SAMBOOT, which the 
user must complete by inserting assembly-lan- 
guage routines that transfer the BIOS and SEC- 
BOOT to the appropriate locations in memory. 
We were able to produce a working version of 
SAMBOOT (which we named PRIMARY) rath- 
er easily because of a very useful feature of the 
Morrow/Thinker Toys DISCUS 2D disk control- 
ler. All necessary software for selecting a disk 
drive, track, and sector and reading or writing 
from disk to memory are provided in a ROM on 
the controller card. These were accessed by calls 
from our bootstrap program, a much simpler pro- 
gramming task than writing our own disk-access- 
ing routines. Once PRIMARY was ready (see 
Listing 1) we extracted a disk image containing 
SECBOOT from the system disk and copied it to a 
fresh diskette; all that remained was to transfer 
PRIMARY and the BIOS to track zero of the new 
diskette. A bootstrap copier, CPMBOOT, had 
been provided for this purpose, but when we used 
it, the resulting bootstrap diskette would not bring 
up the system. Again the problem was apparently 
that Thinker Toys’ non-standard BIOS was not 
confined to the portion of memory where 
CPMBOOT expected to find it. A listing of the 
dual-density BIOS used by Thinker Toys would 


UCSD incorporates several powerful extensions to 
the Pascal of Jensen and Wirth, most notably 
string intrinsics, block [I/O 
and random access files. 
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have been helpful, but none was available. Fortu- 
nately Thinker Toys documentation provided a 
listing of a standard single-density BIOS, which 
we typed in and transferred to the bootstrapping 
disk. This time CP/M Adaptable Pascal booted 
successfully, leaving us with a one-diskette boot- 
strap but a far-from-optimal system. We still were 
limited to single density and could only access two 
of our three disk drives. So, using the knowledge 
gained from the CP/M Adaptable Pascal system, 
we turned to the full Adaptable Pascal system. 

The full Adaptable UCSD Pascal system re- 
quires that the user write an SBIOS in assembly 
language for the appropriate microprocessor. The 
SBIOS consists of a jump table and a series of rou- 
tines that test the status of, read from, or write to 
the console and disk drives. Using the routines in 
the Disk Jockey ROM and the newly written 
BIOS as a model, we wrote a Pascal SBIOS with 
little trouble. An SBIOS tester is provided to ran- 
domly read and write to all peripherals, printing 
diagnostics if any errors are detected. Surprisingly 
enough, the SBIOS worked properly the first time. 
The next task was to copy the SBIOS and PRI- 
MARY to track zero of the bootstrapping disk. 
CPMBOOT provided with the CP/M Adaptable 
system worked nicely for this purpose. No troubles 
were encountered, and the system booted on the 
initial try. 


BO by this success, we then implemented 
extensions to the SBIOS to permit multiple 
floppy disk formats and peripherals, such as a 
printer and digital plotter. UCSD doesn’t supply a 
test program for the extended SBIOS, but this is 
not a serious problem. From our experience, any- 
one successfully booting the SBIOS should be able 
to write the extended SBIOS. After making sure 
our SBIOS met all the specifications given in the 
manual, we again used CPMBOOT to transfer it 
to the bootstrap disk. Once again, the system 
booted properly. Our Extended SBIOS is given in 
Listing 2. 

We were now ready to create a double-density 
Adaptable Pascal diskette. At this point, we de- 
cided to write a Pascal program, FORMAT (see 
Listing 3), to alter the parameters of our disks, so 
that we might easily read a variety of disk formats. 
Using the newly written FORMAT program. we 


changed drive B to double density and transferred 
all necessary files with the Filer. However, we 
were unable to use CPMBOOT to alter the boot- 
strap. This was apparently related to the fact that 
we were now working with a disk drive that had 
been set to double density. We were able to solve 
the problem by returning to CP/M, loading the 
SBIOS and PRIMARY into core with DDT, then 
executing a program to copy from core to track 0 
(see Listing 4). We then booted double-density 
UCSD Pascal. 

Our experience in implementing the UCSD 
Pascal Adaptable System, Version II.0, was, in 
general, quite rewarding, though we do have a few 
complaints. Portions of the instruction manual 
were troublesome; at one point we were referred to 
a non-existent appendix, and it was sometimes un- 
clear whether instructions refer to the CP/M Ad- 
aptable disk or the Adaptable system disk. One 
often has to read as many as three sections of the 
manual at once to understand a particular point. 
An example of this is the list of parameters to be 
loaded on the stack by the primary bootstrap. 
These actually are given in the section on the 
SBIOS tester, and, at least for 8080/Z80 systems, 
one parameter too many is listed in the documen- 
tation. Also, losing one’s place in the manual can 
be disastrous, because the index is less than com- 
plete. Several readings and lots of page turning are 
required before everything becomes clear. Had we 
fully understood from the start what we eventually 
gleaned from the UCSD Pascal manual, we prob- 
ably could have produced our SBIOS for the full 
adaptable system in less than a week. However, it 
took much longer to boot the different versions de- 
scribed above and to figure out exactly what had 
to be done. The inexperienced programmer should 
beware, since implementing the bootstrap requires 
that the reader be fluent in assembly language, but 
bootstrapping Adaptable Pascal is an excellent 
way to learn how your computer system works. 

Recently SofTech Microsystems has introduced 
the UCSD P-System! and UCSD Pascal Version 
IV.0. This version offers upward-compatibility of 
source code from other versions, although recom- 
pilation of Version II.0 programs is required be- 
cause the pseudo-code contains some new instruc- 
tions. Version IV.0 also introduces multitasking 
and provides more flexible memory-management 


The User’s Manual has been expanded, 
its typeface improved, 
and a much better index has been provided. 
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UCSD Adaptable Pascal 


techniques. Version IV.0 incorporates and consoli- 
dates the capabilities of Version IT.0, Version IT.1 
(the Apple Computer Corporation UCSD Pascal), 
and Version IJI.0 (distributed by Western Digital 


VA S gg* S gg* Corporation with the Microengine hardware-emu- 
] 8” lated P-machine). We obtained UCSD Pascal 
SINGLE SIDE SINGLE SIDE Version IV.0 as an upgrade to our Version IT.0 sys- 


SINGLE DENSITY SINGLE DENSITY 
W/HUB RING SOFT, SOFT tem, and because we have a number of Fortram 


7 10 OR 16 tees OR 32 : : 
DvEAR waRRaNTEe SECTORS | 2 year wannanree SECTORS programs available on a mainframe computer, we 
also ordered UCSD Fortran. 
UCSD Adaptable Pascal, Version IV.0, is dis- 


Bais?! 9* 8” so tributed on five 8’’ floppy diskettes, with the For- 
LE SIDE 


tran compiler and library on a sixth diskette. As 
SING SINGLE SIDE 


DOUBLE DENSITY DOUBLE DENSITY or with Version II.0, each diskette is divided into 
W/HUB RING . 

he it OR 32 three images, each small enough to be loaded onto 
100% CERTIFIED 100% CERTIFIED 


2 YEAR WARRANTEE SECTORS 2 year waRRanTee SECTORS a minifloppy. The documentation provided with 
Version IV.0 has been completely redone and is 


V7” gg* 09% far superior to what we received with Version II.0. 

5% 
There is a separate Installation Guide that in- 

DOUBLE SIDE DOUBLE SIDE cludes all the information required to bring the 


WHUBRING SOFT, raid system up and that corrects problems like the 


100% cenrieieo «(10 OR 16 100% CERTIFIED th 22 wrong number of parameters for PRIMARY to 
2 YEAR WARRANTEE SECTORS 2 YEAR WARRANTEE SECTORS : 

push onto the stack. There is also a separate Inter- 

© Minimum order 10 nal Architecture Guide for those who want more 


Packed 10 boxes of 10 diskettes with sleeves and labels details about how the P-machine and operating 
Quantity discounts — 100 deduct 5%, 


1,000 deduct 7%, 5,000 deduct 10% system actually work. The Users’ Manual has 

Add $5.00 per case 514", $7.00 per case 8” (case of 100) . . 
For shipping and handling Continential U.S.A., U.P.S. ground. been expanded, its typeface improved, and a much 
better index has been provided. Appendices G and 

VINYL STORAGE PAGES DISK DRIVE HEAD i : : 

514" of 8” 10/85 __| CLEANING KITS ey H in the Users’ Manual summarize differences be- 
Tmopoteroe gh a) lon ae tween Version IV.0 and previous versions and pro- 
© Unbreakable Wy | ere % vide guidelines for converting Pascal programs to 


@ Shock-sate 

@ 15 Amp Circuit Breaker “~ Cae ae Fi ‘ 
@ Lighted On-Off Switcn_$19.95 __] ® : Version IV.0. Our only quibble about the docu- 
HARDHOLE DISK PROTECTORS SFO C- 10 CASSETTES . . 10/87 mentation is that for users like us, who have imple- 


Reinforcing rings (All cassettes include box and labels.) 


of tough mylar Get 8 cassettes, C-10 pa mented previous versions of the Adaptable Sys- 
protect disk hole Sonic, and Cassette/8 a 


edge from damage 5%"_8" | Library-Album ny Dey tem, it would have been useful to have a one- or 


Applicators as illustrated, 


Hardhole Rings (50) 0 two-page summary of differences in the bootstrap- 


We so sock at FANTASTIC nc ping procedure. Only minor changes are required, 
LIBRARY CASES MAKELL 3M nYsAn = is 
8" Kas-sette/10 $2.99 BASF OPUS but they are not spelled out explicitly. 
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equipment covers, power consoles, paper supplies, storage and No go! We tried again using the secondary boot- 
filing equipment, furniture and many other accessories for word rs Z . ; 
and data processing systems. Write for our free catalog strap supplied with Version IV.0, but still no wel- 
coming message. Finally we sat down with the old 
and new manuals side by side and compared them, 
a process that revealed that the new primary boot- 
Eres Order Only DATA PRODUCTS strap had to push one more parameter onto the 
fi e stack. This has been accommodated by a condi- 
800-854-1555 (FORMERLY ABM) y 


For Information tional assembly directive in Listing 1, and this new 
or California Orders 


8868 CLAIREMONT MESA BLVD. 
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11.0 and 1V.O continued... 


bootstrap brought the system up. 

The manual for UCSD Pascal Version IV.0 
states that source programs from Versions II.0, 
II.1, and III.0 should compile and most will run. 
However, the Version IV.0 system occupies more 
memory than previous versions and so “‘tight-fit- 
ting” programs might not run. This can be over- 
come by using segment procedures, but we pre- 
ferred not to modify our existing programs. Conse- 
quently we wanted to make optimal use of the 64K 
of memory in our system. The UCSD P-system 
requires memory space for the p-code interpreter, 
for the SBIOS, and for a user program. In our sys- 
tem the DJ 2D ROM on the Morrow disk control- 
ler is addressed at FOOO hex, and so a large contig- 
uous memory area is available from 0000 hex to 
FOOO hex. In Version II.0 we put both the inter- 
preter and the SBIOS in this space. The DJ 2D 
board contains ROM from F000 to F3FF hex, and 
RAM from F400 to F7FF hex. Since our Seattle 
Products RAM can only be addressed in 4K blocks 
and since the RAM must not overlap the DJ 2D 
ROM, we cannot use memory above F7FF hex. 
The primary bootstrap is loaded at F700 hex, but 
300 hex of RAM is available from F400 to F6FF 
hex. Since our SBIOS occupied less than 200 hex 
bytes, we decided to load the SBIOS into the DJ 
2D RAM at F400 hex. This leaves 100 hex bytes 
for possible future expansion of the SBIOS and 
adds 200 hex bytes to the large contiguous RAM 
area for user programs. So far we have not encoun- 
tered problems with tight-fitting programs, al- 
though we have run out of memory when using the 
screen editor. It would be very useful if the screen 
editor or YALOE were able to page text from the 
disk instead of requiring that the entire file to be 
edited must be loaded into memory. 

We were very happy with UCSD Pascal Ver- 
sion II.0 and we used it to develop an extensive 
graphics package for our Cambridge Development 
Laboratory screen graphics, for screen dumps to 
an IDS 440 Pager Tiger dot-matrix printer, and 
for plotting on a Houston instruments DMP-2 
plotter. Development of programs was very con- 
venient because of the screen-oriented editor and 
the inherent structure of Pascal. The ability to 
write assembly-language routines, assemble them, 
and store them in the system library greatly aided 
program development, too. Once we had the 
UCSD Pascal system up and running, the graphics 
package as well as an applications package for col- 
lecting data from scientific instruments were de- 
veloped very easily and rapidly (within three 
months). 


Software for 


NorthStar 


Users 


EXPENSE PROFILE $29.95 


Now a program that really helps at 
income tax time. It summarizes 
expenses by categories and by 
person. Makes SEPARATE vs JOINT 
TAX RETURN comparisons simple. 
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DYNAMIC BUDGET $29.95 


Cope with rapidly changing economic 
conditions. Forcast effects of 
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CALENDAR built-in so recurring 
items like rent entered only once. 


Monthly listings of expenses, 
income, and balance. Change or add 
items anytime, data automatically 
stored on disk. 


PATHFINDER DISASSEMBLER 
$22.50 
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jump or call to allow you to follow 
program or continue straight 
ahead. Printer & video output. 


KID MATH $17.50 
Math drill. Watch speed, accuracy 
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UCSD Pascal IV.0 is an improvement on an al- 
ready excellent software package, and we are hap- 
py with our decision to upgrade. However, the im- 
provements in the new version are not as obvious 
yet as are some of the problems we have encoun- 
tered. This is probably because we have only had a 
short time to get used to Version IV.0. We discov- 
ered that after recompiling all of our library rou- 
tines for the graphics package we could no longer 
store them as we had done with Version II.0, but 
instead we had to link together all assembly-lan- 
guage and Pascal routines into a single unit before 
storing the unit in the system library. Version II.0 
was more flexible in this regard, and we were un- 
able to figure out from the Users’ Manual why 
Version IV.0 seemed unable to find our graphics 
package. Several calls to SofTech Microsystems 
were required before we were able to contact the 
right person to answer this question. Another dis- 
appointment was our discovery in the Fortran 
User Reference Manual that “It is not generally 
possible to do I/O from Pascal routines called 
from a main program that is written in Fortran.” 
This is a major problem for us because our graph- 


OUR 
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UCSD Adaptable Pascal Versions [1.0 and IV.0 continued... 


ics package is in Pascal and assembler, and many 
of the Fortran programs we would like to use in- 
clude graphics. Thus we are faced with the prob- 
lem of rewriting the graphics package in Fortran, 
eliminating I/O from the graphics package, or re- 
writing all our Fortran programs in Pascal. 

All of this goes to show that the UCSD P-Sys- 
tem is not perfect. Nevertheless, it is an excellent 
operating system with many powerful features, 
and we recommend it highly. We hope that the 
information and listings presented here will be 
useful to others who plan to implement the UCSD 
P-System on 8080- or Z80-based machines. 
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Listing 1 
eee test ESC et tees fetes tee seitettetttscettetecestetecetsetesse s 


PRIMARY BOOTSTRAP FOR UCSD ADAPTABLE PASCAL 


x x 
* x 
x x 
x Whenever a cold boot (reset) occurs the Disk Jockey x 
* disk controller reads the contents of track 0» sector 1 x 
* into memory starting at ORIGIN+700H and executes it. x 
* = PRIMARY is designed to run at ORIGIN+790H» snd sutomati- x 
* cally boots to UCSI Pascal by reading the I/0 drivers * 
x x 
¥ * 
x % 
x * 
x * 
x x 
* x 


SLVWYOS 


Q3qnionl 


SI ALINILN dANG GNV 


YANOILIGNOOAYd IIDSV 
Q3aLWOddNs 


TIV 3YV SOINOWANW 


(SBIOS) and secondary bootstrar {SECBOGT) from track 0 
of the bootstrarring disk and loading them into memory. 
It then Jumps to SECROQT to complete the bootstrarring 
procedure. PRIMARY must reside on the first sector of 
track 0 on the bootstrarring disk. 


NVILIX OGNV 101 


TIVO —SYSHLO 
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YOLOAS LAOS GG SS .8 
AINO IWANVW SZS/0S1$ ¢ 


TRUE EQU 
FALSE Eau 
PASSIV EQu 


OFFFFH 
NOT TRUE 
TRUE 


sDEFINE VALUE OF TRUE 
sDEFINE VALUE OF FALSE 
sSET THIS TRUE IF USING UCSI 
j P-SYSTEM VERSION IV,0. 
y SET FALSE FOR VER. II,0. 

° 
) ADDRESS GF DJ CONTROLLER BOARD 
+ ADDRESS OF THE SBIOS 
sTRACK ZERGQ SEEK ENTRY POINT 
sENTRY FOR TRACK SEEK 
sENTRY POINT FOR SECTOR SET 
sENTRY POINT TO SET READ/WRITE ADDRESS 
sDISK READ ENTRY POINT 
sDISK WRITE ROUTINE ADDRESS 


YS TEWaSsvVSiIC LSV13HL 


ORIGIN 
SBIOS 

TKZERO 
TRKSET 
SETSEC 
SETBHA 
DREAD 


OF OOOH 

OF 400H 
ORIGINT11Q 
ORIGIN+14Q 
ORIGIN+17Q 
ORIGIN+22 
ORIGIN+250 
DWRITE ORIGIN+300 
DMAST ORIGIN+44Q sDISK READ/WRITE STATUS ROUTINE 

SECNUM 16 § SECONIIARY BOOTSTRAP IS 16 SECTORS LONG 
SECSEC 3 » SECONDARY BOOTSTRAP ON THIS SECTOR 
BIGSNUM i SEIOS IS 5 SECTORS LONG 

BIOSSEC + SBIOS IS ON THIS SECTOR 

SECBOOT sSECONDARY BOOTSTRAP RUNS HERE 
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38 010 VauvV ¥3asn 
W/dd SHL SLIOTdXS @ 
GQN31LX43 


#FIRST LOC USED BY INTERPRETER 
sMAXIMUM NO. BYTES PER SECTOR 
sTOP WORD OF CONTIGUOUS MEMORY 
*LOWEST AVAILABLE RAM LOCATION 
NUMBER OF TRACKS FER [ISK 
sNUMBER OF SECTORS PER TRACK 


INTERPSBASE 
MAXSBYTES 
TOPSMEMORY 
LOWSMEMORY 
TRACKS 
SECTORS 
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BYTES 
INTERLEAVE 
FIRSTSTRACK 
SKEW 
MAXSSECTORS 


sNUMBER OF BYTES PER SECTOR 
sINTERLEAVING FACTOR 

#FIRST INTERLEAVED TRACK 
sTRACK-TO-TRACK SKEW 

sMAXIMUM NUMBER OF SECTORS/TRACK 


STACK 


TOPSMEHORY +2 sINITIAL STACK POINTER 


RAKE KAMA K EERE RRR R AR RAR R RE EEE RR 
% PRIMARY BOOTSTRAP STARTS HERE ¥ 
JOO O ORE RSE OR RE 


“AYVMLIOS 
318ILVdINOO W/dd 
Y3SHLO GNV SIHL NO 
NOILVNYOSNI YSHLYNSA 


ORG ORIGIN+700H 
2100F0 PROOT LXI Hy» STACK 
F9 SPHL 
2100F 4 LXI 
011305 LXI 


*10}99S8 yos Ayjsuap 
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UO JEUO} W/dd U! B1qQeI]EAe FAUX 
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3 STACK AT TOP OF CONTIG. MEMORY 

¢ RESET THE STACK 

H»SBIOS #SBIOS GOES HERE 

By(BIOSNUM SHL 8)+BIOSSEC ¢ B - # OF SECTORS TO REAL 
+ C - STARTING SECTOR 

READIT § READ IN CBIOS 

Hy SECROOT § LOAD BOOT BASE ALDRESS 

Be( SECNUM SHL 8)+SECSEC +B - # OF SECTORS 10 READ 

¢ C - STARTING SECTOR 

+ REAB IN SECONDARY BOOTSTRAP 


¥O4 3LINM YO 11V9 


WSV S.IN/dd pue OSiN 
SO}I1-4 80unN0S 
WOODSVE 8 SISVEW 
404 


CD46F7 CALL 
210082 LXI 
010310 LxI 
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CD46F7 CALL REABIT 


Z86T 199019Q/s19quiojdag suloysKsoIOI, ZL 


PASSIV sPUSH ON STACK ONLY IF PASCAL VER. Lisitng 2 
+ IV,0 IS BEING BOOTED eee ees s ett t Seite testes tees st ttttrcecctssetteesets seg 
210001 Hy MAX$BYTES sMAX BYTES/SECTOR OF ANY DISK * diasieis, 


ES H EXTENDED SBIOS FOR UCSD ADAPTABLE PASCAL 


211A00 HyMAX$SECTORS  s#MAX SECTORS IN TABLE WRITTEN! MAY 1980 ROW 
H 


Hy» SKEW sTRACK-TO-TRACK SKEW Hons? 
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H»FIRSTSTRACK FIRST PASCAL TRACK : 
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HeINTERLEAVE — SINTERLEAVING FACTOR | 
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7/15/80 RGU USE PAPER TIGER AS PRINTER 
7/5/81 JWM SET ORIGIN AT F400H 


Poe eee otto eee ee eee eects test ttt ttt ett ttt tetettesecr ey 
Hy» BYTES sBYTES PER SECTOR 


H CONSOLE: CRT ON SERIAL A (9600 BAUD) 
Hy SECTORS sSECTORS PER TRACK 

H PRINTERS PAPER TIGER ON PARALLEL B 
H» TRACKS sTRACKS PER DISK 

H REMOTE UNIT: DIGITAL PLOTTER ON [ISK JOCKEY SERIAL PORT 
H» TOPSMEHORY sTOP OF AVAILABLE MEMORY 

H 
Hy LOWSMEHORY sROTTOM OF AVAILABLE MEMORY 
H 


x 
x 
x 
x 
x 
x 
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x 
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* 
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* 


SOOO OOOO aE 


. I . SEG OOOO GOI 
Dy SBIOS sALIRESS OF SEIOS * «SYSTEM EQUATES 


* 
ti SOOO OOO OOK 
H sALDDRESS OF INTERPRETER 
C30082 SECROOT GRIGIN EQU OFOOOK sDISK JOCKEY/20 CONTROLLER STARTING ADDRESS 
BIOS EQU OF400H sLOCATION OF EXTENDED SBIQS 
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PETES eS CEC SESS SSP CESSES ECR S STE CEE ECTS SSE est test et ett tet tte! 


REMIN  EQU GRIGIN+3 #SERIAL INPUT ROUTINE 

REMOUT EQU ORIGINtS sSERIAL OUTPUT ROUTINE 

TKZERO EQU ORIGIN+9H #TRACK ZERO SEEK ROUTINE 

TRKSET QU ORIGIN+OCH yREGULAR TRACK SEEK ROUTINE 
SETSEC EQU ORIGIN+OFH #SET SECTOR ROUTINE 

SETDMA EQU ORIGIN+12H sREAD/WRITE BEGINNING ADDRESS SET 
DREAD = EQU ORIGIN+15H sUISK READ ROUTINE 

DWRITE EQU ORIGIN+18H sDISK WRITE ROUTINE 

SELIRY EQU ORIGIN+1BH sDISK SELECTION ROUTINE 

TSTAT QU ORIGIN+21H sSERIAL DEVICE STATUS ROUTINE 
STACK EQU ORIGIN+640H *DISK JOCKEY/20 RAM AREA FOR BOOT ONLY 
SEKERR EQU 99H #SEEK ERROR BIT MASK 

RWERR EQU OFFH FREAD/WRITE ERROR BIT MASK 

ACR EQu ODH sCARRIAGE RETURN 

ALF Eau OAH sLINE FEED 


cs READIT PUSH FSAVE SECTOR AND COUNT 

£5 PUSH =H FSAVE STARTING ADDRESS 
CLOFFO CALL © SETSEC 3SET SECTOR TO READ 

ChO9FO CALL TKZERO sHOME THE DRIVE 

EI POP oH #CET STARTING LOAD ADDRESS 
44 LDLOOP? HOV = EH #PUT STARTING ADDRESS IN BC 
40 HOY Col 

Ch12F0 CALL © SETDHA #SET LOAD ADDRESS 

0608 WT Br 0 FINITIALIZE RETRY COUNTER 
cs RULOOP: PUSH = E #SAVE RETRY COUNTER 

CUISFO CALL = DREAD FREAD THE SECTOR eetrecstiietirieistressteeer ste es, 
ct pop SFETCH RETRY COUNTER % CROMEHCO TUART PORT ADIRESSES 4 
D265F7 JNC  —-RBGOOD FIJUMP IF READ OK PettCCettteitestcctiocstestrttters| 
05 DCR OK FELSE UPDATE RETRY COUNTER 

C256F7 JNZ ——-RDLGOP #TRY AGAIN IF <10 ERRORS 
C300F0 EXIT! = JMP-_—s ORIGIN #START OVER - TOO MANY ERRORS 
C1 RUGOOL: POP = B #GET SECTOR COUNT AND NUMBER 
05 DCR OK sUPDATE SECTOR COUNT 

c8 RZ FRETURN IF DONE 

oc IWRC FINCREMENT SECTOR NUMBER 

c5 PUSH B #SAVE COUNT ANI NUMBER 
CBOFFO CALL — SETSEC 3GET SECTOR TO READ 

Cli24FO CALL DMAST #CET LOAD ADDRESS 

218000 LXI Hr 128 SUPDATE IT 

09 DADO 

C34FF7 JMP = LDLOOP jREAD NEXT SECTOR 


| | | 


ABASE EQU 20H #BASE ALIIRESS FOR T-UART DEVICE A 
BBASE EQU 80H #BASE ADLIRESS FOR T-UART DEVICE B 
ASTATPT EQU ABASE #STATUS AND BAUD RATE PORT A 
BSTATPT EQU EBASE SSTATUS AND BAUD RATE PORT B 
ASERPT EQU ABASE+ sINPUT & OUTPUT SERIAL PORT A 
BSERPT EQU BBASE+1 sINPUT & OUTPUT SERIAL FORT B 
ACMDPT EQU ABASE+2 sCOMMAND PORT FOR A 

RCMDPT EQU BBASE+2 sCOMMAND PORT FOR B 

AINTPT EQU ABASE+3 sINTERRUPT PORT A 

BINTPT EQU BBASE+3 sINTERRUPT PORT B 

APARPT EQU ABASE+4 sINPUT & OUTPUT PARALLEL PORT A 
BPARPT EQU KBBASE+4 sINPUT & OUTPUT PARALLEL PORT B 


"" " panuyuod OA PUC O']] SUOISJBA JeoSed ejqes;depy GSON 


en | 


JOO Oa IEStttettttttttrritit iit tttettttttttt tt tists tires ttre tert ee! 
*% CONSTANTS 4% . * % 
etstrresttt tet’ * SYSINIT! SYSTEM INITIALIZATION ROUTINE 

x 

x GIVEN KC = POINTER TO JUMP TABLE 
RXRDY EQU 40H 
TXRDY EGU 80H 


sREAD DATA AVAILABLE (READY TO READ) 
sTRANSMIT BUFFER EMPTY (READY TO TRANSMIT) 


x 
AAO OGG OC GOO EK 


BR?600 EQU OCOH 
BR300 EQU 84H 
RESET EQU 1 


sSAVE POINTER TO INTERPRETER JUMP TABLE 
sUSED BY SETBISK TO CALL [SKCHNG 


FRAUD RATE OF 9600» 1 STOP BIT F420 21ERF4 SYSINIT LXI Hy JHPTBL 
sBAUD RATE OF 300» 1 STOP BIT F45F 71 HOV MC 
PRESET THE TUARTsLOW RAUL RATE»NO INTERRUPTS F440 23 INX H 

F461 70 Moy MB 
BELL QU 7H sBELL F462 3E01 MYT Ay RESET 
BS EGU 08H sBACKSPACE F464 01322 OUT ACMBPT 
HT EQU 09H sHORIZONTAL TAB F466 1382 OUT BCMDPT 
LF EQU OAH sLINE FEED F468 AF . XRA A 
VT EQU OBH sVERTICAL TAK F469 0383 OUT BINTPT 
FF EQU OCH sFORM-FEED F46B 01323 OUT AINTPT 
CR EQu ODH sCARRIAGE RETURN F460 3EC0 HVT Ay BRI600 
ESC EQU 1BH sESCAPE F46F 01320 OUT ASTATPT 
SPC EQU 20H sSPACE F471 3E84 MYI Ar BR300 
RUBOUT EQU 7FH sRUBOUT F473 1380 QuT BSTATPT 
MENT EQU 00H sEND OF MESSAGE INDICATOR F475 C9 RET 


on 


sRESET THE T-UART 

sRESET PORT A 

sRESET PORT B 

#NO INTERRUPTS PLEASE!!! 

sFOR THE B PORT NO INTERRUPTS 
sTHE A PORT TOO 

sBAUL RATE OF 9600» 1 STOP RIT 
sSET THE CONSOLE TO 9400 BAUD 
#BAUD RATE GF 300s 1 STOP BIT 
sSET SERIAL B TO 300 BAUT 


uni nnbn nw bono 


ASCII EQU 7FH yASCII MASK 
{OOOO OOOO ORGS GBIOO OOO HAG GOOG GE 
* x 


SEIS IOK * SYSHALT$ EXIT UCSD PASCAL. . x 


€L 


F400 


F400 C3SCF4 
F403 C376F4 
F406 C377F4 
F409 C379F4 
F40C C383F4 
F40F C38FF4 
F412 C39BF4 
F415 C3EDF4 
F418 C3F2F4 
F4iB C3F7F4 
F4iE C3FEF4 
F421 C339FS 
F424 C371F5 
F427 C373F5 
F42A C374FS 
F420 C375F5 
F430 C377FS 
F433 C37BFS 
F436 C37DFS 
F439 C3C1F5 
F43C C3C3F5 
F43F C3CDFS 
F442 C3L3FS 
F445 C3D8FS 
F448 C3UBFS 
F44B C3E2F5 
F44E C3ERFS 
F451 C3F4F5 


F454 0000 
F456 0000 
F458 0000 
F45A 0000 


* SBIOS STARTS HERE % x % 


FACOG RR 


ORG BIOS 


JMP SYSINIT 
JMP SYSHALT 
JMP CONINIT 
JMP CONSTAT 
SMP CONREAL 
JHP CONWRIT 
JHP SETBISK 
JHP SETTRAK 
JMP SETSECT 
IMF SETBUFR 
JMP DSKREAD 
JMP DSKWRIT 
IMP DSKINIT 
JMP DSKSTRT 
JMP USKSTOP 
JMP PRNINIT 
JMP PRNSTAT 
SMP PRNREAT! 
JMP PRNWRIT 
SMP REMINIT 
SMP REMSTAT 
IMP REMREAD 
JHP REMWRIT 
JMP USRINIT 
JHP USRSTAT 
SMP USRREAD 
JP USRWRIT 
IMP CLKREAD 


CURDISK DB 070 
CURTRAK DB 070 
CURSECT DB 010 
CURBUFR DB 010 


sINITIALIZE SYSTEM 
sEXIT UCSD PASCAL 
sCONSOLE INITIALIZATION 
sCONSOLE STATUS 
sCONSOLE INPUT 
sCONSOLE GUTPUT 

sSET DISK NUMBER 

sSET TRACK NUMBER 

sSET SECTOR NUMBER 
sSET BUFFER ADDRESS 
sREALD SECTOR FROM DISK 
sWRITE SECTOR TO DISK 
*RESET [ISK 

PACTIVATE [ISK 
sDEACTIVATE DISK 
sPRINTER INITIALIZATION 
#PRINTER STATUS 
SPRINTER INPUT 
sPRINTER OUTPUT 
sREMOTE INITIALIZATION 
sREMOTE STATUS 

sREMOTE INPUT 

sREMOTE OUTPUT 


sUSER DEVICES INITIALIZATION 


sUSER DEVICES STATUS 
sUSER DEVICES INPUT 
sUSER DEVICES OUTPUT 
#SYSTEM CLOCK READ 


#CURRENT FLOPPY DISK DRIVE NUMBER 


sCURRENT TRACK ON CURDISK 
#CURRENT SECTOR ON CURTRAK 


sCURRENT MEMORY BUFFER ADDRESS 


F477 
F478 


F479 
F47B 
F470 
F47E 
F47F 
F480 
F482 


AF 
c? 


11820 
£640 
4F 
ce 
aF 
OEFF 
cg 


POSES CSCC ESOC CC ESSE SS ESS SSS TSS SESE S SEES SE Stes TSC e eS Sees sso ss 


SYSHALT HLT sHALT 


SEO HO DOUG HOGOOGHEIS ICG IGA RIG ICO CGR GE 


* 
* CONINIT: INITIALIZE CONSOLE PORT ANI REPORT STATUS OF x 
* THE CONNECTION, % 
x * 
* RETURNS A = 0 IF KEYBOARD ON LINE % 
x = 9 IF KEYBOARD OFF LINE x 
3 ¥ 

x 


* 
SEG OO CODA OG IGG ROE 


CONINIT XRA A sCONSOLE ON LINE 


eee tee es Tete t ts test t ties eset Stes tes tetesstecttessstrresess 
x 

* CONSTAT: REPORT THE STATUS OF THE CONSOLE CONNECTION x 

AND CONSOLE INPUT CHANNEL, x 

x 

RETURNS A IF KEYBOARD ON LINE * 

IF KEYBOARD OFF LINE * 

c IF NO CHARACTER * 

x 

x 

x 


0 
9 
0 
FF IF CHARACTER AVAILABLE 


nune 


SOS D OOS GOOODO IGG O HOGG OCG gar 


CONSTAT IN ASTATPT 
ANI RXRDY 
HOV CoA 


sGET STATUS 
sMASK FOR DATA READY BIT 


XRA cs) sZERO IN A REGISTER 
MVI C»OFFH sTHERE IS A CHARACTER 
RET 


sZERO IN C FOR POSSIBLE RETURN 
RZ sSIGNAL ON LINE BUT NO CHARACTER 


¢ 
Q 
.~ 
A 
8 
S 
® 
vu 
: 
2 
S 
g 
oy 
a3 
w 
= 
~) 
5 
Q 
= 
= 
>) 
2) 
3 
5 
Cc 
& 
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22 OGG OIG AGGRO OOK EGO OCR GR RR DR RARER RRR RARE 


DSKINFO! FOUR DISK INFORMATION BLOCKS CONTAINING THE 
RECORDING FORMATS OF ALL FLOPPY DISK DRIVES, 
EACH BLOCK CONTAINS SIX 14-BIT WORDS? 


COWREADS RECEIVE CHARACTER FROM CONSOLE AND REPORT 
STATUS OF CONNECTION. 


x 
x 
x 
x 
0 IF OK x 
1 IF ERROR x 
x 
¥ 
* 
x 


* 
% 
x 
* 
x 
WORD DEFINITION % 
NUMBER OF TRACKS PER ItISk x 
x 
* 
* 
¥ 
* 
¥ 


9 IF OFF LINE 
INPUT CHARACTER 


unudg 


Cc NUMBER OF SECTORS PER TRACK 


* * 
x * 
x x 
x * 
x RETURNS A x 
x x 
x ¥ 
x * 
x * NUMBER OF BYTES PER SECTOR 
SOOO OOOO OOOO OOOO UDO OOOO OA x INTERLEAVING FACTOR 
x FIRST PASCAL TRACK 
‘ TRACK-TO-TRACK SKEW 
1R20 CONREAL IN ASTATPT #GET THE 1/0 STATUS OF PORT A * 
E640 ANI RXRDY *MASK THE REAL! DATA AVAILABLE BIT % 
CAS3F4 JZ CONREAL #LOOP UNTIL READY x 
DB21 IN ASERPT #GET THE LATA * 
4F HOV CoA #STORE CHARACTER IN C * 
AF XRA A sREPORT CONSOLE ON LINE * 
* 
* 
* 


cg RET 


NOTE! THE FORMAT PROGRAM TEMPORARILY (THAT IS» # 
UNTIL ANOTHER COLD BOOT) ALTERS THE % 
FORMAT QF DRIVES BY MODIFYING THESE * 
INFORMATION BLOCKS. IF THE ADDRESS OF % 
DSKINFO IS CHANGED, THE FORMAT PROGRAM * 
MUST ALSO BE CHANGED. * 

* 

pee ECCS CCC CCSTOSTCESSSSCCCC OSES TESST ESSE Sets ths tos sot tt | ee Tt CSS STESTSCISSSCOSOSSSST SPCC E SSUES SSS S EES Fetes shhh soe so) 

4DOO1A0000NSKINFO DB 4TIH1 0OHs LAH» 00Hy OOH 01H» 05H» O0Hs OLH» OOH OOH» OOH sORIVE & 

4T1001A0000 DB 4TH OOH» 14H» 00H sO0H¥01Hs 04H» OOHs 01H OOH» OOH 1 OOH sDRIVE K 

411001A0000 03 4TIH1 00H» 1AHs 09H» OOH1 01H» 0SH1 OOH s 01H e 00H» OOH» OOH sDRIVE C 


* 

*% CONWRIT: QUTPUT A CHARACTER TO THE CONSOLE ANI REPORT x 

* * 

a * 

* GIVEN € = QUTFUT CHARACTER * 41001A0000 DE 40H s 00H» LAH? 00H» OOH» O1Hs OSH» OOH 2 OLHy OOH? OOH OOH *URIVE 2D 
* * 

* x 

x x 

* x 


STATUS OF THE CONNECTION. 


RETURNS A = 0 IF OK 
9 IF OFF LINE 0000 JMPTBL IB 00Hs00H sSTORAGE FOR POINTER TO JUMP TABLE 
eet eet eee Cte CSC SES SSCCESSELET STE SS ESTES SSS te SS TE et oe | 
SOOO GOGO OG OOOO OOOO Rie 


A jeoseg ojqesdepy aGsSon 


1820 CONWRIT IN ASTATFT GET THE STATUS ‘ 
£680 ANI TXREY ;MASK THE TRANSMIT BUFFER EMPTY BIT * SETTRAK? ROUTINE TO SET CURRENT TRACK (CURTRAK). 
CASFF4 JZ CONWRIT FLOOP UNTIL REABY TO OUTPUT x 

79 HOV ArC #GET THE DATA TO OUTPUT x GIVEN C = TRACK NUMBER 


0321 OUT ASERPT sOUTPUT TO SERIAL A * 
AF XRA 4 sREPORT CONSOLE ON LINE SAO GGG GOO OG aE 


cg RET 


o1s4a 


79 SETTRAK HOV Axl 
3256F 4 STA CURTRAK 
pee ette set tet ets te estes ETS S SSO S SSeS Ste TSS FFG b bbs testes hts ets | c? RET 


* x 
* SETDISK? ROUTINE TO SET CURRENT [ISK (CURDISK), SEO OOS IOC GOOG GO IOOR AOR ROA 
x 


¥ x 
* GIVEN C = DISK NUMBER * SETSECT: ROUTINE TO SET CURRENT SECTOR (CURSECT). 
x 


- 
SEDC O OOOOH DOG IO GOA GOO IGGGE x GIVEN C = SECTOR NUMBER 


Ps ; 
SAS4F4 SETBISK LDA CURDISK sCHANGING DRIVES? Cee tt ESSTTCSSSCESSSCC SESS SS SSCS ESTP SE TSS SS CEES CEES SES SS 23 8 8 
B9 c 
cB sRETURN IF NO CHANGE 79 SETSECT MOY ArC 
79 AxC 3258F 4 STA CURSECT 
FEO4 4 sLEGAL DRIVE NUMBER? (0-3 ARE PERMISSIBLE) c? RET 
FO sRETURN IF NOT. 
3254F4 CURDISK sSTORE NEW DRIVE NUMBER IN CURTDISK JOU EGU OG U GG OGIO CREAR ERE 
21AFF4 Ho DSK INFO-12 sCOMPUTE POINTER TO CURTDISK PARAMETERS x x 
010000 By12 * SETBUFR! ROUTINE TO SET CURRENT BUFFER ADDRESS (CURKUFR). * 
0? DALLOOP B x 
30 A 
F2ALF4 DADLOOF 
H sSTORE IN BC PAIR 
E 
JMPTBL sHL CONTAINS POINTER TO INTERPRETER JUMP TABLE F4F7 215AF4 SETBUFR LXI Hy» CURBUFR 
sWANT TO JUMP TO 2NDID ENTRY IN THE JUMP TABLE F4FA 71 MOV Mec 
9S0 ADL 3 (THE LENGTH OF 1 JUMP INSTRUCTION) F4FR 23 INX H 
F4FC 70 4OV tisk 
jJUMP TO DSKCHNG, IT WILL RETURN TO CALLER F4FD C9 RET 


GIVEN BC = BUFFER ADDRESS x 


" penuyuoo O*A] PUE O*]] SU 


* 
¥ 
x x 
SOOO OUCH G OOO AOA G GOOG GG UGC AR A 
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INTELLIGENT VIDEO I/O FOR S-100 BUS 


VIO-X 

The ViO-X Video I/O Interface for the 
S-100 bus provides features equal to most 
intelligent terminals both efficiently and 
economically. It allows the use of standard 
keyboards and CRT monitors in conjunc- 
tion with existing hardware and software. It 
will operate with no additional overhead in 
S-100 systems regardless of processor or 
system speed, 

Through the use of the Intel 8275 CRT 
controller with an onboard 8085 processor 
and 4k memory, the VIO-X interface oper- 
ates independently of the host system and 
communicates via two ports, thus elimi- 
nating the need for host memory space. 
The screen display rate is effectively 80,000 
baud. 

The VIO-X1 provides an 80 character by 
25 line format (24 lines plus status line) 
using a5 X 7 character set in a 7 X 10 dot 
matrix to display the full upper and lower 
case ASCII alphanumeric 96 printable 
character set (including true descenders) 
with 32 special characters for escape and 
control characters. An optional 2732 
character generator is available which 
allows an alternate 7 x 10 contiguous 
graphics character set. 


(La~ 


FULCRUM ‘ Oistributed by 


The VIO-X2 also offers an 80 character 
by 25 line format but uses a 7 X 7 character 
set in a9 X 10 dot matrix allowing high- 
resolution characters to be used. This 
model also includes expanded firmware for 
block mode editing and light pen location 
Contiguous graphics characters are not 
supported. 

Both models support a full set of control 
characters and escape sequences, includ- 
ing controls for video attributes, cursor 
location and positioning, cursor toggle, 
and scroll speed. An onboard Real Time __ 
Clock (RTC) is displayed in the status line 
and may be read or set from the host 
system. A checksum test is performed on 
power-up on the firmware EPROM. 

Video attributes provided by the 
8275 in the VIO-X include: 


FLASH CHARACTER 
INVERSE CHARACTER 
UNDERLINE CHARACTER or 
ALT. CHARACTER SET 

DIM CHARACTER 


The above functions may be toggled 
together or separately. 

The board may be addressed at any port 
pair in the IEEE 696 (S-100) host system. 
Status and data ports may be swapped if 
necessary. Inputs are provided for parallel 
keyboard and for light pen as well as an 
output for audio signalling. The interrupt 
structure is completely compatible with 
Digital Research's MP/M ®. 


Additional features include: 


*® HIGH SPEED OPERATION 

*® PORT MAPPED IEEE S-100 
INTERFACE 

¢ FORWARD/REVERSE SCROLL or 

¢ PROTECTED SCREEN FIELDS 

*® CONVERSATIONAL or BLOCK 
MODE (opt) 
INTERRUPT OPERATION 
CUSTOM CHARACTER SET 
CONTROL CHARACTERS 
ESCAPE CHARACTER 
COMMANDS 

¢ INTELLIGENT TERMINAL 
EMULATION 

* TWO PAGE SCREEN MEMORY 


VIO-X1 -80 X 255 x7A&T 
Conversational Mode 

VIO-X2 - 80 257X7A&T 
Conversational & Block Modes 


$295.00 


$345.00 


For European enquiries and sales 
contact: 


Fulcrum (Europe) England 
Phone 061 828763 
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64K STATIC RAM BOARD FOR S-100 BUS 


NEW: 


FEATURES 
© Conforms to IEEE 696 standard. 

8 or 16 bit data transfers. 

24 bit addressing. 

Bank select in 32K-32K or 48-16K. 

Banks selectable/deselectable on 

DMA. 

Responds to phantom pin 67 or 16. 
© 2Kx8 static rams with 2716 pin out. 
* Power consumption is typically 

600 ma. 
© Banks on or off on power up. 
¢ Bank addressable to any of 256 

possible ports. 

8MHz with 150ns parts standard 

faster speeds available on request. 

Available partially loaded as a 

32K board. 

Multiple bank residence. 

NEW FEATURES 

¢ Phantoms read only, or read and 
write. 

* Generates onboard M-WRITE, or 
uses bus M-WRITE. 

© Two seperate banks, indepen- 
dently addressable on 16K boun- 
daries. Banks may be overlapped. 


VN 


Distributed by: 


Additional Features 


OMNIRAM 
REV. C 


OMNIRAM INTRODUCTION: 

The Fulcrum Computer Products OMNIRAM for the IEEE 
696 (S100) bus provides 64 kilobytes of fast static random 
access memory. Provision is made for 8 or 16 bit transfers, 
extended 24 bit addressing, and for control via the bus 
phantom line. In addition, a number of features are included to 
make the OMNIRAM compatible with systems designed before 
the IEEE 696 standard was developed. These include bank 
selection and provision for operation with IMSA\I-type front 
panels. When the bank select option is activated, the board is 
divided into two parts which can reside in separate banks. The 
division of the board may be into two 32K sections or into one 
16K section and one 48K section. 2K blocks may be disabled in 
the upper 16K, or 4K blocks in the upper 32K, of memory. 
Provision is made for DMA overide of bank select if needed. 
The board is also compatible with IEEE 696 or IMSA\I-type 
extended addressing. 


Omniram 64 United States & Canada Prices Only 
With Hitachi 6116 
150ns. Rams 
120ns. Rams 


With Toshiba 2016 Rams...... 
Typical current draw 800mill 


FULCRUM” ww component supPLy INC. 1771 JUNCTION AVENUE ® SAN JOSE, CA 95112 © (408) 295-7171 


COMPUTER PRODUCTS 


For European enquiries and sales contact: Fulcrum (Europe) England. Phone 061 828763 
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3A54F4 
FEOS 
236F5 
4F 
CILBFO 
2156F4 
4E 
CHOCFO 
DA33F5 
2158F4 
4E 
ChOFFO 
DA33FS 
D15AF4 
4E 
23 
46 
ch12F0 
133F5 
CDiSFO 
1) 
£680 
C236F5 
3£01 
co 
3£09 
co 


SAS4F4 
FEO4 


SEO OOOO SSSI UG UGG RE 


DSKREAM; READ A SECTOR FROM A FLOPPY DISK ANT REPORT A 
STATUS FOR THE OPERATION, 


RETURNS A= OI 
1 IF ERROR 
5 


a: 
* 
* 
F OK * 
* 
F OFF LINE ¥ 

x 

* 


MO He FE ee 


SOOO GIS UOO GOOG OG RARE 


DSKREAT LEA CURDISK sREAD CURRENT DRIVE NUMBER 
cPI 4 sLEGAL DRIVE NUMBER? (0-3) 
JP OFFLINE sREPORT ILLEGAL TIRIVES AS OFF 
HOV CoA #STORE REQUESTED [RIVE NUMBER 
CALL SELDRY sSELECT THE DRIVE 
LxI Hy CURTRAK 
HOV CoM 
CALL TRKSET sSET TRACK 
JC READERR sERROR? 
LXI H»CURSECT 
“ov Com 
CALL SETSEC #SET SECTOR 
JC READERR sERROR? 
LXI Hy» CURBUFR 
way Com 
INX H 
MoV Bem 
CALL SETDMA sSET REAL ADDRESS 
JC READERR sERROR? 
CALL DREAD sREAD THE SECTOR 
RNC sRETURN IF NO ERRORS DETECTED 
ANI 80H sCHECK FOR OFF LINE [ISK 
JNZ OFFLINE 
READERR MVI Ast 
RET sRETURN 1 IF ERROR 
OFFLINE MVI Ar? 
RET sRETURN 9 IF OFF LINE 


JOO UO OOO OGO GEOG UOOC OOOO CA RB 
DSKWRIT$ WRITE A SECTOR TO A FLOPPY DISK ANI REPORT A 
STATUS FOR THE OPERATION, 


16 IF ERROR 
9 IF OFF LINE 


FE FE FE HE 8 3 


* 
x 
x 
x 
x RETURNS A = 0 IF OK 
x 
* 
* 
x 


peettectttettttetetetestsctltsesecetsclicetet esse lessees 32 5) 


USKWRIT LDA 


CURDISK 
4 


sREAT CURRENT DRIVE NUMBER 
#LEGAL DRIVE NUMBER? (0-3) 


Chi2Fo 
DASEFS 
CHISFO 


C236F5 
3E10 
c? 


CALL SETDHA sSET READ ADDRESS 
Jc WRITERR sERROR? 
CALL DURITE sWRITE THE SECTOR 
RNC sRETURN IF NO ERRORS DETECTED 
ANI 80H sCHECK FOR OFF LINE DISK 
INZ OFFLINE 
WRITERR MVI Arlé 
RET sRETURN 16 IF ERROR 


SEG DOUG OGG MOOO OOOHR UO BRR i 
x x 
* DSKINIT: RESET A DISK ANI REPORT STATUS FOR THE OPERATION 


RETURNS A = 0 IF OK 
= 9 IF OFF LINE 


SOOO GOGO OGG OB ioe 


DSKINIT XRA 4 
RET 


JEG OOOO COSC OOOO ROS GOGO ODUGHO OID Ro 
x x 
X TSKSTRT} ACTIVATE THE CURRENT DISK, * 
x * 
SOOO OOOGO A O GA GOG OOOOH GOA IOOIDOISG EIGER IAG 


DSKSTRT RET 


SAGES SEO UIOOIOMOU DOG OOH GE 
x x 
% DSKSTOP? DEACTIVATE THE CURRENT [ISK. x 
x * 
SOOO UIOO UDO OOOO ait 


DSKSTOP RET 


SOOO OGG OOO OR a Oy 

‘ : 

* PRNINIT! INITIALIZE PRINTER AND REPORT STATUS OF THE 
CONNECTION, 


- 


RETURNS A = 0 IF PRINTER ON LINE 
= 9 IF PRINTER OFF LINE 


MF Oe 


SAGO GOBCH CO GUES OOOO abt 


PRNINIT XRA A REPORT PRINTER ON LINE» EVEN 


IF IT IS NOTs SINCE OTHERWISE 
MUST REINITIALIZE PASCAL TO 
GET IT TO REALIZE PRINTER HAS 


#REPORT ILLEGAL DRIVES AS OFF LINE 
4F CsA sSTORE REQUESTED DRIVE NUMBER IN C 
CD1BFO SELDRY sSELECT THE DRIVE 
2156F4 Hs» CURTRAK F576 C9 RET 
4E CoM 
CLOCFO TRKSET #SET TRACK 
DASEFS WRITERR sERROR? * 
2158F 4 Hy» CURSECT * 
4E CoM x 
CHOFFO SETSEC x 
TASEFS URITERR sERROR? x 
215AF4 Hy» CURBUFR x 
x 
* 
x 
x 


F236FS OFFLINE BEEN TURNED ON, THIS STATUS IS 


ONLY CHECKED AT INITIALIZATION, 


; 
; 
; 
; 
; 
, 


SAO OOOO OCGA OGD GOOG OOOOOOG DIGG: 


¢ 
B 
S 
e 
3 
Ss 
® 
U 
r 
8 
o 
a 
° 
a 
= 
.~) 
: 
Q 
= 
Ss 
.~) 
9 
=| 
> 
= 
a 


PRNSTAT: REPORT STATUS QF PRINTER CONNECTION AND PRINTER 
INPUT CHANNEL. 
sSET SECTOR 
RETURNS A = 
= 9 IF PRINTER OFF LINE 
C = 0 IF NO CHAR 
= FF IF CHARACTER AVAILABLE 


x 

x 

x 

¥ 

0 IF PRINTER ON LINE ¥ 

x 

4E CoM * 
23 ) H Li 
46 eM x 
* 


ee CCC CeSECCCCCCCSCCECSSSSCCCCSSE SSIES UT SECTS SEO ES tts bes SS | 


LL 


FS77 AF PRNSTAT XRA #ZERO A REGISTER TO INDICATE PRINTER FSBA 04 INR sINCREMENT COUNTER 

¢ ON LINE: EVEN IF IT IS NOTs SINCE FSBE FAACFS JM sLOOF UNTIL COUNTER = 0 
+ CANNOT REAL FROM THIS PRINTER FSBE AF XRA sREPORT PRINTER ON LINE 
+ AND STATUS APPLIES TO READ ONLY FSBF C9 RET 
F578 0E00 MVI CxO #REPORT NO CHARACTER REALY 


FS7A C9 RET FSCO 00 CHCNT: DB 00 


pee S ST ESOC TESS ECCS ESS CLCC SSCS SS SSS TPS Ess Sets thes sss cect sete s sy Nee ee eee eee eee eset ett e erties ett te tet titecctssettersere ses | 
x SEDO IIOIO GEO OOOO OGIO CBOSS OOOO SE IAGE 
PRNREAD? RECEIVE A CHARACTER FROM THE PRINTER. x sages 
x 1/0 DRIVER FOR THE [DTC 300/S 
RETURNS A = 0 IF OK x 
1 IF ERROR x TO USE THE BTC AS THE PRINTER: REPLACE THE PRECEDING 

4 PRNINITs PRNSTAT» PRNREADy AND PRNWRIT ROUTINES WITH 

x 

x 


THIS CODE. THE DTC SHOULD BE CONNECTED TO THE SERIAL B PORT, 


9 IF OFF LINE 
INPUT CHARACTER 


huunt 


c 


* 
x 
* 
x 
x 
* 
* 
* 
x 


AO OOOO aaa Ge pOSSELECCCSESOSELEtC SSC SEet ECS CStettteterettecesteeesesetteseny 
FS7B AF PRNREAD XRA A #REPORT PRINTER ON LINE 
FS7C C9 RET PRNINIT MUI ArBR300 
OUT BSTATPT 

XRA 

RET 


SAO DO OO Re 


PRNWRIT? WRITE A CHARACTER TO THE PRINTER AND REPORT 
STATUS OF THE CONNECTION, 


FE RE Me PE OF PE TE ME TE HE HE FE HE FE HE 


PRNSTAT 
¥ MUI 
RETURNS = 0 IF OK RET 


x 
x 
x 
x 
GIVEN C = OUTPUT CHARACTER x 
x 
9 IF OFF LINE x 

* 

x 


S -thateiattathattaiheaihel 


SOOO OGOUOOGRR ER RRR REE PRNREAL 
T 

21CO0FS PRNWRIT LXI Hy CHCNT #HL POINTS TO COLUMN COUNTER - 

79 #GET CHARACTER 

FEOD #1S IT A CARRIAGE RETURN? 

CAIFFS sYES, PROCESS IT 

FEO9 s1S IT A TAB? 

CAA4FS sYES» PROCESS IT 

FE20 sIS IT A NON-PRINTING CHAR? 

FAPIFS sIF LESS THAN A SPACEs SKIP COUNTING 

34 sINC (HL) - INCREMENT COLUMN COUNTER 


PRNWRIT sLINE PRINTER (DIABLO) 
sGET CHARACTER 
#15 IT A CARRIAGE RETURN? 
sYES» PROCESS IT 
sIS IT A TAR? 
#YES» PROCESS IT 
s1S IT AN ESCAPE? 
sDECREMENT CHARCOUNT 
#1S IT A BACKSPACE? 
#DECREMENT CHARCOUNT 
#1S IT A NON-FRINTING CHAR? 
sIF LESS THAN A SPACE, SKIP COUNTING 
#CET THE CHARCQUNT FOR THE LINE 


DB84 PRNOUT; BPARPT sGET STATUS OF PAPER TIGER 

E605 SH sWAIT UNTIL OK TO SEND 

FEO4 4H sWAIT FOR FAULT HIGH AND BUSY LOW 
C291F5 PRNOUT j 

79 ArC sQUTPUT THE CHARACTER 

1384 BPARPT ; 

AF A 

cy 


, 
#ZERO A REG, TO REPORT PTR ON LINE FINCREMENT COUNT & STORE 


Fe ee FE OE FF TE te OE OE OE OE Oe Fe BE FE OE BE ME RE OE OE Oe Be 


? 71S IT A SPACE? 
AF CRROUT; A s<CR> RECEIVED, SQ ZERO THE COUNTER 
77 77H sLD (HLA 

C391FS PRNGUT 


SPACEROUT 
SPCNT 
A #GET THE CPU FLAGS SET 
LIST1 
B #SAVE THE CHARACTER 
3 93 SPACES? 
ESCSEQ sIF MORE THAN 3 SPACES» DO ESC SEQ 
C+SPC sOUTPUT THE SPACES 
BA sLOAD COUNTER 
SPAGAINSCALL LISTI vIF 3 SPACES OR LESS» PRINT THEM 
DCR B 
INZ SPAGAIN 
SMP NCHAR1 : 
ESCSEQ! MVI CyESC sNIRECT HORIZONTAL TAB 
CALL LIST1 #SEQUENCE IS <ESC> T <CHARACTER> 
MVI Cy’T’ 


$ #REPLACE <HT> WITH MULTIPLE SPACES 
SACOFS CHCNT sLOAL COLUMN POSITION 
£607 7H *MODULO 8 
DEOS 8 sCALC, MINUS DIST. TO NEXT TAB STOP 
47 ByA sSAVE DISTANCE IN K 
IBB4 SPACES BPARPT sGET STATUS OF PAPER TIGER 
E605 *MASK QUT ALL BUT BUSY ANI FAULT BITS 
FEO4 sWAIT FOR BUSY LOW AND FAULT HIGH 
C2ACFS #LOOP UNTIL READY FOR OUTPUT 
3E20 #LOAL A SPACE INTO REGISTER A 
0384 sOUTPUT IT 
34 sINC (HL) ~ INCREMENT COLUMN COUNT 


‘** Panuju0o OA] PUB OC']] SUOISIBA JeDSeg ejqe;depy GSON 


Me Fe oe ee 2 PE FE Pe FE EE ne me te 


Z86I J9qQ01I9O/Joquieideg swsjsAsolNIy «BL 


x CALL LIST! 

* LBA CHCNT 

* DCR A 

¥ HOV CoA 

* CALL LIST1 

¥NCHARL: ORG $ #RESET SPACE COUNT 
* XRA a) 

* STA SPCNT 

* POP B 

* JMP LIST1 

* 

*¥SPACEROUT: ORG $ sINCREMENT SPACE COUNT 

x LDA SPCNT 

t INR a 

*x STA SPCNT 

* XRA A sCLEAR AC FOR PASCAL 

% RET 

x 

xCRROUT? ORG $ 

* XRA ) 

¥ STA SPCNT sZERG OUT SPACE COUNT T00 
* STA CHCNT sZERO OUT THE COUNT 

* JMP LIST1 

x 

TABS = ORG $ sUIRECT HORIZONTAL TAB TO REPLACE <HT> 
x LDA CHCNT sLOAD COLUMN POSITION 
*¥LOOP: SBI 8 #FINT DISTANCE TO NEXT TAB STOP 
x JP LOOP sUSING REPEATED SUBTRACTION 
* HOV BrA 

* LDA CHCNT 

* SUB R 

x STA CHCNT sSTORE NEW POSITION 

x LDA SPCNT sINCREMENT SPCNT TO NEXT TAR STOP 
* SUB j 

x STA SPCNT sSTORE NEW SPCNT 

¥ XRA A sCLEAR AC FOR PASCAL 

* RET sRETURN 

x 

4DECR: LDA CHCNT sDECREMENT COLUMN COUNT 

* BCR A 

* STA CHCNT sSTORE IT 

* JMP LIST 

x 


¥CHCNT? DB 00 
aSPCNT} DB 00 


x 

x 

¥LISTI: IN BSTATPT sGET THE STATUS 

* ANI TXRDY #MASK THE TRANSMIT BUFFER EMPTY BIT 
¥ JZ LIST! sLOOP UNTIL REARY TO OUTPUT 
x 4OV ArC sGET THE BATA TO OUTPUT 

* OUT BSERPT sOUTPUT IT 

* XRA A sCLEAR AC FOR PASCAL 

* RET 

x 

* 


pee Sete S Sette tet tsetse ete e ets t ttt test ettereetercesectrsteets | 
SAS I OG IOG OOO RIOK 


SEStITCTerierestererterestrereteT trier r Tete tT tere T Tre er TTT 
x 
* REMINITS INITIALIZE THE REMOTE PORT AND REPORT STATUS 
OF THE CONNECTION. 


RETURNS A = 0 
=9 


% 
* 
x 
x 
IF REMOTE ON LINE x 
IF REMOTE OFF LINE x 

* 

* 


MM Mm ee 


SCOOT IOG OOO OCIGO SG IODC 


FSC1 AF 
FSC2 C9 


FSC3 CU21FO 
FS5C6é AF 
FSC7 OEFF 
FSC? C8 
FSCA OE00 
FSCC C9 


FSCD ChO3FO 
FSBO 4F 
FSB1 AF 
FS02 C9? 


FSD3 CHOSFO 
FSB6 AF 
FSD7 C9 


FSN8 3E09 
FSDA C? 


REMINIT XRA A 
RET 


SAO GOOG GOOG GR 


x 
REMSTAT: REPORT STATUS OF REMOTE CONNECTION ANID REMOTE 


* 

x % 
x INPUT CHANNEL, x 
% * 
* RETURNS A = 0 IF REMOTE ON LINE x 
x = 9 IF REMOTE OFF LINE * 
x C = 0 IF NO CHARACTER x 
x = FF IF CHARACTER AVAILABLE * 
* * 
PSSSELSSECSSSSCES CC CSSSTES SSS SESE CSCS SECTS SSE ECS Pet reo s sett! 
REMSTAT CALL TSTAT 

XRA A 

MVI C»OFFH 

RZ 

MVI C10 

RET 


YAO OR OOOO AG 


x 
REMREADS RECEIVE A CHARACTER FROM THE REMOTE INPUT x 
CHANNEL ANI REPORT THE STATUS OF THE REMOTE x 
CONNECTION, x 
x 
RETURNS A = 0 IF OK x 
1 IF ERROR * 
9 IF OFF LINE x 
INPUT CHARACTER x 
x 
* 


mun 


* 
¥ 
* 
x 
x 
x 
* 
x C 
* 

x 


SEO OOOO UIGOCG OOOO ARO GEOG 


REMREAD CALL REMIN 
CrA 
XRA A 
RET 


SOOO GOGO OCOIGGOG OA ODIO OO GGG UIA 
REMWRIT? WRITE A CHARACTER TO THE REMOTE PORT AND RETURN 
THE STATUS OF THE CONNECTION. 


RETURNS A = 0 IF OK 


x 
x 
¥ 
GIVEN C = OUTPUT CHARACTER * 
x 
9 IF OFF LINE x 

x 

x 


Fe Me ee 8 


SEIS OG GOOG OGRE 


REMWRIT. CALL REMOUT 
XRA a 
RET 


SAGO GOOG GO OOO ROOK Ee 


USRINIT! INITIALIZE A USER-DEFINED REVICE AND RETURN THE 
STATUS OF THE DEVICE, 


* 
¥ 
x 
GIVEN C = DEVICE NUMBER % 
RETURNS A = 0 IF DEVICE ON LINE x 
= 9 IF KEVICE OFF LINE x 

* 

x 


S Ahethethaitathathadhadhed 


SOOO OOOE OOOO OO GAME OOGOIOUO ODOR E 


USRINIT MVI Ar? 
RET 


jeoseg ajqe;depy ason 


< 


9 
Py 
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FSDB E1 
FSDBC C1 
FSBD Ci 
FSBE C1 
FSDF 3E09 
FSE1 €9 


FSE2 £1 
FSE3 C1 
FSE4 C1 
FSES Ci 
FSE6 C1 
FSE7 C1 
FSE8 3E09 
FSEA £9 


FSEB E1 
FSEC Ci 
FSED Ci 
FSEE C1 
FSEF Cl 
FSFO Ci 


SAUD OG OR RR SRR REE 
x x 
USRSTAT: REPORT STATUS OF A USER-DEFINED DEVICE, x 

* 

GIVEN SP = RETURN ADDRESS x 
1/0 DIRECTION x 
STATUS RECORD NUMBER x 
DEVICE NUMBER x 
x 

x 

¥ 

* 


0 IF fEVICE ON LINE 
9 IF DEVICE OFF LINE 


RETURNS A 


* 
x 
x 
x 
x 
x 
x 
* 
x 
SEO OOOO COG GAAG OU GAGORE 


#GET RETURN ADDRESS 
sCLEAN UP STACK 


USRSTAT POP H 
POP R 
POP ig 
POP B 
MVI Ar? SUNIMPLEMENTED, SO REPORT AS OFF LINE 
PCHL sRETURN 


SEO OOO OGG EGE x 


USRREAD: GET STATUS OF A USER-DEFINED TEVICEs AND PERFORM 
A READ GPERATION ON IT, 


x 
x 
x 
GIVEN SP = RETURN ADDRESS x 
EXTRA PARAMETER 2 x 
EXTRA PARAMETER 1 x 
POINTER TO BUFFER x 
DEVICE NUMBER * 
EXTRA PARAMETER 3 x 
0 IF BEVICE ON LINE * 
9 IF DEVICE OFF LINE x 

* 

* 


RETURNS A 


x 
* 
x 
x 
x 
x 
* 
x 
* 
* 
x 
x 
x 
* 


KXRAAKAAERAKKS EAA AAA SAAR ARR EREAAA ERA AKERS RARER ARE RARER 


USRREAD POP 3CET RETURN ALDRESS 
POP #CLEAN UP STACK 
POP 
POP 
POP 
POP 
HUI FUNTHPLEMENTED - REPORT AS OFF LINE 
PCHL i RETURN 


peetttetsstttecesesseeee tse si set sees et thet e520 25808 8 t5 58s 5 te | 


* x 
USRWRIT; GET STATUS OF A USER-DEFINED DEVICE» ANI) PERFORM 
A WRITE OPERATION ON IT. 


x 
x 
x 
GIVEN SP = RETURN ADDRESS x 
EXTRA PARAMETER 2 x 
EXTRA PARAMETER 1 % 
POINTER TO BUFFER * 
DEVICE NUMBER x 
EXTRA PARAMETER 3 x 
© IF BEVICE ON LINE x 
9 IF DEVICE OFF LINE x 

x 

x 


RETURNS A 


nannhununw 


* 
x 
x 
* 
x 
* 
¥ 
x 
x 
x 
x 
x 
* 


peseteettttettsetesettsttstieiteettetee cee sete s Sess 832303 tty 


USRWRIT POP sGET RETURN ADDRESS 
POP #CLEAN UP STACK 
POP 
POP 
PoP 
POP 


sUNIMPLEMENTED - REPORT AS OFF LINE 
#RETURN 


FSF1 3£09 MUI Ar? 
FSF3 £9 PCHL 


pee S CECT ESSE LESOPe CCS S SSS SST eS SS ttt seer e Sekt estes tee ote ts 8s 


CLKREAD; REPORT STATUS OF THE REAL-TIME CLOCK, AND RETURN 
THE CURRENT TIME. 


x x 
x x 
x ¥ 
* x 
x RETURNS A = 0 IF CLOCK ON LINE x 
* = 9 IF CLOCK OFF LINE x 
x BE = LEAST SIGNIFICANT WORD x 
x HL = MOST SIGNIFICANT WORD * 
x x 
x x 


SACOG GOGO OGG OO OE 
FSF4 3609 CLKREAD MVI As? sUNIMPLEMENTED - REPORT AS OFF LINE 
FSF6 C9 RET 


Listing 3 
Pees t eet tees cee SCC SCC S CSCS ECC SCSSCCSSCSTOCCCOCCOCOCCCOCSSCLCES S SSS) 
Ox tn 
(x THIS PROGRAM REFORMATS DISK DRIVES RUNNING UNDER UCSi 
PASCAL BY MODIFYING THE DISK INFORMATIGN BLOCK 
CDSKINFO) WITHIN THE SEIOS, IF THE SRIOS iS ALTEREL!»s 
CHANGING THE ADDRESS OF DSKINFO, THEN THE EQUATE 
WITHIN THE REFORMAT SUBROUTINE MUST BE CHANGET AS WELL. 
REFORMAT IS LOCATED INSIDE THE SYSTEM LIBRARY. 


COO OOOO GCC ORG UC OR RRR A CK ) 


PROGRAM FORMATS 


VAR 

DENSITY! INTEGERS 
INTERLEAVING? INTEGER? 
FIRST..PASCAL_ TRACK ¢ INTEGERS 
SKEW? INTEGER? 

OFFSET? INTEGERS 

DRIVE} INTEGERS 

CHS CHAR; 


BYTES PER SECTOR *) 
INTERLEAVING RATIG *) 
FIRST TRACK USE! BY PASCAL % > 
TRACK-TO-TRACK SKEW &) 
f OFFSET INTO SHIOS CSKINFO BLOCK #) 
kK NUMBER OF FLOPPY DISK &) 


PROCEDURE REFORMAT( PARAM1» PARAM2»PARANS » PARAMS » OFFSET: INTEGER )y EXTERNALS 


BEGIN 
WRITELNs 
WRITELN(’EMU flores disk formatter [1.07% 5 
WRITE( ‘Reformat which drive (AvsB»yC» or Th? 
CASE CH OF 
CASES 
be | a Real steers 
"C’ vy’ a" 
ag a» La | 
ENT 
SF CH IN DAY» “as? Bos b? 2" Ce pciet 0? tid? a 
THEN = 
BEGIN 
OFFSET t= 1L2xDRIVE+4s 
WRITELNS 
WRITEC’ Track-to-trsck skew: 
WRITE( ’ Interleavins factor? 
WRITE( ’Bstes rer sector: 
WRITE( ‘First Pascal tracks 


‘ys REATILN(G CH D9 


DRIVES =05 
DRIVE S=15 
DRIVE3=25 
DRIVE? =35 


REALILNG SKEW D> 

REALLNC TINTERLEAVING Ds 
READING THENSITY 35 

REALILNG FERST PASCAL. TRACK 95 


A sessed ajqezdepy ason 


1S19 


(+) 


‘PEnujuOo OA, pue oy] su 


GYVS SDIANSS Y3GVaY NO 8S 3T1DUIO 


m ]' S388Po! 
-  OO*K % + xO$B 
x |! wsNneor SG F * P B*S 8*S 8293850 
em i os8o3uia =BS2mg 885 88s Boa 3829 
+7] mMe=Gr pyre @AGaUV-ODV O98 OVS 9@et 3238 
Oc -|! gees 381280 P4355 ns ONS 98559953520 
of |} 2288 Gi imoss2 "5 gs ES ee oot 
a NU ) Oo0o8 oo 7 =. 
-—— 1 ooge S1aROsad & 2 2 of 333 
-*%2 A,fygndur7e ow 5 £ iS ; 
vo {tf 0° Frame gas a2 ¢ 5 § 350 ; 
o% |i Bo Bteegkek z : dq. 8 gape By] S Nene: 
p> |i Rlagasta & 5 $ $ EEE } PURPOSE: 
oO |t sno BivAs Fc = = a a £960 ; ; 
Pe |i BPePSo1533 SE b xO Ss p Cho ; 
OoR[-O-197M9a2 ASF OO ° a7 , 
aM |! Msepo8tiseea << & a 230m : 
mi 1ge%-ssigas 38 3 223M 3 USE? 
of ft S258? '388 Ss s9oveD YSsn Fey SSP ; 
123° la=S5 @2 oe ope S 2 og = 0 og 5 
wo Spe tosd 23 78689052 $FHu2e So YSOSOM ’ 
pes 12e2 82 S55 ne5 SES 2S = j 
anes opr eer 5< FT 98 <“O8R nl : 
moparzx § CRO 'oeo Se fc Z29G4 <52% Be Ou z 
ers] oe iwenr @F Gores GBS2>w vd o 5 
Goss ' ws 10D 88 Bg5e7f BG232 25 9380 ; 
Sis 7 Q =. = 
ae ae satod 12meo2 S35 "oo H8S as3g Oo z= H 
Spee | (302 gg o88fs3 S558 23 §-0 Hl: 
RBS top? S83 adsen93 E535 G2 OS oe i 
ore oe ow mtsmyO 38 @RV52™ DaG 2b oO 
b%o § POOST ome ase 2 80985 Sko9 oO ae 
M52 !' @2593 we Ss £2 Booty Of3N ° ie © | 
a2 1asogs ! Zo G% $3 35350<M Sca 5 og +PROC 
SEO 1 SG20% | €& of SB290F SFSE 2 53 
ey 4 Ss a 2 
g7 4) «(€SR 1 32 oF FFRARB Sa22 9 sng ISKINFO .EQU 
ov ns2 1 mo =a @2G9S®5 OF o 
1 Noa O2 as < - ee 390 ag 
= 622 1 Ss we 305 o° MM POF 
S9 | Qwd 1 2 @@ 3 sig POP 
a 6 $ a 
BS igs 1 & FF 3 SEO Ln 
Bi tS 1 ; = All 
EX 
Li 
Lo 
All 
LOIR 
HXKAKRARR ERASER ARERR TAREE RTRSY up 
x x 
* ~~ EQUATES FOR DISK JOCKEY 21! x Sea 
* x ¥ 
{EO ICO Listi 4 
isting 
F000 = ORIGIN EQU OFOOOH sDJ/20 firmware stertins address 
FOIB = SELDRY EQU ORIGIN+27 sDisk drive selection routine 
F009 = TKZERQ = EQU ORIGING? sTrack zero seek routine 
F012 = SETDMA EQU ORIGINGIS *Set read/write besin address in mien. 
FOOF = SETSEC EQU ORIGING1S sSelect sector routine 
F024 = DMAST EQU ORIGINt36 yRead current read/write address 
FOis = DWRITE Eau ORIGIN+24 sllisk write routine 
0005 = ENTRY EQuU SH sEntry point for BDOS 
000D = CR Eau ODH sCarriage return 
000A = LF Eau OAH sLine feed 
WRIVELNs 


WRITELN( ‘Tyre "R" to reformat drive ‘schs’.” )s 
WRITEC ‘Any other character exits with no changes, “ )5 
IF CH IN ESR spt a 
THEN BEGIN 
REFORMAT( SKEWs FIRST_PASCAL_TRACKs INTERLEAVING » DENSITY s OFFSET D5 
WRITELN( “Reformattings com=lete* )s END 
ELSE WRITELNC’No chanses made.” )5 
EWI 
WRITELNS 
WRITELN( ‘Returning to Pascal’ ) 
END. 


REALLING CH D5 


REFORMAT 


WHERE 


SIR OOO GOOG OO OOO OGG OOO OR RK 


SOG GOA IO GGG GOOG OOO IO IOK 


x 

x 

ALTER THE RECORDING FORMAT OF DISK DRIVES BY MODIFYING x 
THE DISK INFGRMATION BLOCK (DSKINFO) INSIDE THE SBIGS. * 
THIS ROUTINE IS USED BY THE FORMAT FROGRAM, x 
* 

REFORMAT( SKEW FIRST_TRACK » INTERLEAVING » BYTES» OFFSET ) * 
x 

SKEW = TRACK-TO-TRACK SKEW * 
FIRST_TRACK = FIRST FASCAL TRACK x 
INTERLEAVING = INTERLEAVING RATIO x 

BYTES = NUMBER OF BYTE PER SECTOR * 

OFFSET = OFFSET INTO DSKINFO * 

* 

* 


REFORMAT +S 

OF 4HBH sREGINING OF DISK INFORMATION BLOCK IN SBIOS 

Ix sGET RETURN ADDRESS 

HL sCET OFFSET FOR DSKINFO 

DEy,OUSKINFO sGET STARTING ALDRESS OF USKINFO 

HL » LIE sCOMPUTE STARTING ADTIRESS + OFFSET 

TE » HL sE = DESTINATION FOR LOITR TRANSFER 

RCyS sRYTE COUNT IN BC (MOVE 4 WORTIS=8 BYTES) 

HL +00 yHL <-- SP 

HL» SP sUSE HL AS SGURCE FOR LDIRK TRANSFER 
sTRANSFER PARAMETERS DIRECTLY FROM 
sSTACK TO DSKINFO BLOCK 

SP y HL sRESEF STACK POINTER 

(Ix) sRETURN TO PASCAL 


JEG OOOO GOOG AG KE BK 
x 


x 
x 
* 
x 
x 
¥ 
x 
* 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 


SAO OEE AOE RR OEE 


BOOTHKR 


x 
x 
x 
THIS PROGRAM IS USED FOR MODIFICATION OF THE UCSD FAS- x 
CAL PRIMARY BOOTSTRAP LOADER (PRIMARY) AND/OR EXTENDED x 
SBIOS (SBIOS7), THESE PROGRAMS CAN RE MODIFIED USING THE ¥& 
CP/M EDITOR AND REASSEMBLED UNDER CP/M. THEN DT MUST BE x* 
USED TO READ THE NEW HEX FILES INTO MEMORY. THE PRIMARY ¥ 
BOOTSTRAP MUST BE REAL WITH AN APPROPRIATE OFFSET SO THAT ¥& 
IT BEGINS AT 980H» AND THE SBIOS SO THAT IT BEGINS AT AOOH. ¥* 
THEN BOOTMKR WILL COPY THE TWO PROGRAKS ONTO THE PROPER ¥ 
SECTORS OF TRACK ZERO OF A UCSE PASCAL DISKETTE. SINCE x 
THE SECONDARY ROOTSTRAP WILL NOT BE COPIED, WHENEVER A NEW X* 
DISKETTE IS TO BE LOADED WITH A NEW PRIMARY BOOTSTRAP AND ¥ 
SBIOS, THE UCSI! PASCAL PROGRAM BOOTER SHOULD BE USED FIRST * 
TO COPY ALL OF TRACK ZERO FROM AN EXISTING UCSIi PASCAL x 
DISKETTE. * 
* 

x 
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0100 100H 


0100 319402 SP ySTACK 

0103 116F01 Dy PROMPTL sSend first rromrt 

0106 CB6901 PRUFF 5 to console 

0109 C6301 RDCON sGet character from console 
O10C 319402 SP »STACK 

O10F AF A 

0110 0E00 C10 
O112 CLIBFO SELDRY iSelect drive no. zero» ise, driv 
0115 ChO9FO TKZERG Select track zero 

0118 018009 $ B,980H sPrerare to reed menors 

O11B CD12FO SETDMA ¢ beginning at 980H 

O11E OE01 Crt sSelect sector no. 1 

0120 CLOFFO SETSEC 

0123 CIASFO DWRITE sWrite to disk 

0126 DAOCOL START Carry set indicates write error 


|MeN pug 
end} pue pai 


“"*" gASN ILINW 


iClear flags 


“aSeq SWI} |BISAID “MP'gE O} 


pneg Jp Wo. sajes pneg ‘sue}ulid jsey 10) ayeyspueY 


‘P8}S9} Puke palquiassy OG '6r7$ 
SN}EIS "SLYWN SNUO’YyoUASY p ‘sUOd Z UO Sdoo7 Juang 


‘Aiyejuepuadepu! pessaippe jajjesed F]/elas “jno 
- uid Aue 10) padde.ys aq Aew pieog ‘sjeuBis $15 pue 


SLY ZEZ% - SH (SQE} JAPjOS 10 ZEZT - SY Bj]GeD 1OJD@UUOD 
‘pajse} puke pa|quiassy 0S'6rz$ 


0129 011308 K BrQi3h sSBIOS soes on sectors 19 to 26 
3 1+e+ 13H to LAH 

012C CS gE sUse B resister as counter 

0120 01000A LX By 0A00H sPrerare to read SHIOS 

0130 Ch12F0 WRLOOP SETIMA sSet memory address 

0133 C1 PO! BE +Get proper sector no, in B 

0134 C5 B 

0135 CLOFFO SETSEC 

0138 CLisFO DWRITE 

O13B DA2901 WRITE sRepeat if error on write 

O13E C1 B 

O13F 05 BE sDecrement sector counter 

0140 CAS101 TONE sExit when all 8 sectors written 

0143 OC c 

0144 CS B sIncrement sector no. to write 

0145 CD24FO DMAST sFind current memory address 

0148 218000 Hy 80H 

O14B 09 B 

O14C ES H 

0140 C1 B 

014E C33001 WRLOOP 

0151 114702 Dy PROMPT2 sSecond prompt to console 

0154 CB6901 Ci PBUFF 

0157 C6301 RDCON iGet character from console 

O1SA AF A 

O15B 0E00 C10 iSelect drive zero (A) 

0150 CHIBFO SELDRY 

0160 C30000 00H sWarm boot 
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0163 0EO1 ROCON Cl yUse CP/t function ‘read conscie’ 
0165 C0500 ENTRY ¢ to set character 
0168 C9 
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Saving Program State under 
UCSD Pascal 


A description of procedures that aid 
manipulation of list data 


by Jon Bondy 


was recently contacted by a friend of mine 
(Herman Euwema of Scholar Computer, 
Princeton, NJ) who had an unusual UCSD 
Pascal problem to be solved. He had written a 
Lisp interpreter which he was using to manipulate 
dynamic list data structures (what else?!). Al- 
though part of his program provided a way to save 
and restore list data in text form, he wanted a way 
to save his program “state” more rapidly, even if 
only temporarily. This problem is not a simple one, 
since it requires saving both static and dynamic 
data structures. Intrigued, I started thinking about 
the problem, and one thing led to another. . . . 
When one runs a Pascal program, the data in 
the program which determine the current program 
“state” (or the “memory” of what the program is 
doing at a particular time, if you wish) resides in 
two principle areas of memory: that portion of the 
stack devoted to storing “global” variables, and 
that portion of memory in which the “heap” is 
stored. Just in case you are not completely familiar 
with these data storage approaches, I will discuss 
each of them briefly. 


Global Variable Storage 
Although programs may contain variables de- 
clared at all procedure levels, those declared at the 
outermost or program level are of particular inter- 
est for two reasons. First, they are visible through 
all of the program, and are therefore sometimes 
referred to as “global” variables. Second, in con- 
trast to “local” variables declared within proce- 
dures, global variables exist throughout the entire 
program execution time; they are allocated 
“statically.” 

By the definition of the Pascal language, local 
variables are temporary; storage for them is allo- 
cated (of a stack) when the procedure is called, 
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and that storage is deallocated when the procedure 
finishes execution. This means that one cannot 
store a value in a local variable during one invoca- 
tion of a procedure and expect that it will still be 
there when the procedure is invoked again. One 
immediate reaction to this might be “But that is 
absurd: why was Pascal designed so carelessly?” 
In fact, it is exactly this kind of behaviour which 
allows all Pascal procedures to be “recursive’’: In 
providing the powerful tool of recursion, Pascal 
denies the programmer static local variables. Of 
course, Pascal could have provided static local 
variables as well as dynamic ones, as Algol and C 
do, but that is another discussion altogether. 

The fact that all local variables are non-static 
means that only the global variables can contain 
true program state information; the local variables 
are too ephemeral to contain anything except tem- 
porary state information. Because of this, we need 
only save and restore global variables when pre- 
serving program state. 


The Heap 
The “Heap” is a portion of memory dedicated to 
“dynamic storage” of variables. There is a sense in 
which the stack is used dynamically, in that each 
time a procedure is invoked a portion of the stack 
is used to store the procedure’s parameters, local 
variables, and temporary storage (expression eval- 
uation, etc.); the Heap is dynamic in a different 
way. The difference is that the stack expands and 
contracts in a regular and predictable fashion: pro- 
cedure calls use stack space and procedure exits 
return stack space. The Heap expands when the 
programer explicitly requests memory allocation 
(via the intrinsic NEW), and does not contract un- 
til the storage is released (via the intrinsic DIS- 
POSE, if this is implemented. It is not imple- 
mented in the different versions of UCSD Pascal 
prior to IV.0). 

By their very nature, variables which are stored 


on the heap are not named in the standard fashion. 
A standard variable always exists within its lexical 
scope (i.e., if you can use its name in a program, it 
will exist at that point in the program’s execution); 
a dynamic variable is certain not to exist during 
some portion of program execution. In order to ac- 
cess these variables, Pascal uses “pointers.” A 
pointer is a variable which “points to” or “contains 
the address of” (for you assembly language ad- 
dicts) a dynamic variable; the dynamic variable 
may not have a name, but it may be accessed via 
the pointer, which does have a name. 


ointers can point only to variables of a single 

declared type, allowing Pascal to preserve type 
checking when operating on either dynamic or 
static variables. If a pointer “‘P’’ is to point to an 
integer variable, we declare TYPE P : INTEGER; 
“P” points to an integer. When one wants to create 
a dynamic variable, one calls NEW passing to it a 
pointer variable; NEW allocates the storage and 
sets the pointer variable pointing to the new dy- 
namic variable. One can then refer to the new dy- 
namic variable by using the pointer variable and 
the “7” symbol. If one said NEW(P), then one 
could increment that integer with “PT := PT + 
13”. 

This may seem needlessly complex, but the 
principle beauty of dynamic data structures lies in 
the cases where the allocated variables are records, 
and their fields themselves contain pointers. If we 
declare a record like 


list_ptr = [list_rec; 

list_rec = record 
data : integer; 
next : list_ptr; 
end; 


then if one had a “‘list_ptr” variable called “root,” 
one could create a “linked list’? of such records as 
follows: 


NEW(root); 
NEW root].next); 
NEW (root].next].next); 


These kinds of data structure (and more complex 
ones with more than one link in the record) hold 
two kinds of beauty (utility?). First, they can grow 
to fill all available memory without deciding in ad- 
vance how large they must or will become; one 
never has arrays which are too large or too small. 
Second, extremely complex structures of data can 


be created by utilizing multiple link fields. A link 
between two records really makes them “logically 
adjacent,” no matter where they lie in memory; 
complex “‘next to” relationships can be described 
using links in complex ways. 

Note that each dynamic data structure is 
“rooted” in the global static variables: to get to an 
element in the linked list, we start at the root and 
walk the chain of dynamic records. It is this rela- 
tionship which allows us to save an entire program 
state properly: the global variables point to the dy- 
namic data, and (in some programs, at least) the 
dynamic data contains the real program state. 

Languages like Lisp (LISt Processor) use the 
heap areas heavily to create linked lists and trees 
of data and manipulate them. Transposing a linear 
structure to/from a Text file from/to the heap is 
fairly straightforward (although time consuming), 
but attempting to transfer a tree-like structure to/ 
from a Text file from/to the heap is more complex. 
When attempting to write a (two-dimensional) 
tree structure to a (one-dimensional) file, at the 
first branch one is confronted with the question 
“Does the right branch or the left branch go into 
the file next? Where does the other branch go?” 
The topography of complex linked data structures 
is such that file generation is much more difficult 
and time consuming. As an example, the Lisp pro- 
cessor which my friend was using could take as 
long as 15 minutes compute-bound to write the 
Lisp data structures to disk; this was on a WD 
MicroEngine, too—a processor which is about 
8 times faster than a Z80 at executing UCSD 
Pascal. 

Clearly, the best way to deal with the problem 
would be to save both the static (global variables) 
and dynamic (heap) data structures on disk and 
read them back in when required. Although this 
sounds simple, this approach needs a little care in 
order that it work properly. Most Pascal imple- 
mentations store pointer values as hardware ad- 
dresses; this is in contrast to integer or real values, 
which have nothing to do with physical locations in 
the hardware. If one were to attempt to restore 
data from disk and discover that it was not placed 
in EXACTLY the same locations as it was origi- 
nally, this would cause immense problems. Con- 
sider our linked list above: the “root” variable 
would point to what it thought was a record, but if 
the record was not in the correct location, garbage 
would be processed instead. In order to ensure cor- 
rect processing, one must make NO changes in ei- 
ther the program or the operating system between 


. » » the current program “‘state”’ resides in 
“‘global’’ variables and in the ‘‘Heap.”’ 


saving and restoring the data; even a change of one 
byte will cause the technique to crash the system. 
If you decide to employ this technique, be aware 
that use of different versions of the same operating 
system, BIOS (i.e. loadable drivers), or program 
between saves and restores could cause system 
crashes. 


Writing Global Variables to Disk 
Writing the global variables to disk would be fairly 
easy if it were not for a few complicating factors. 
First, since the variables are placed on the stack in 
the order in which they are declared, they are in 
the REVERSE order in memory, as the stack 
grows DOWN. This means that attempting to 
write all global variables starting with the first one 
will only serve to write the first byte of the first 
variable and a portion of the stack “above” the 
variables in memory (probably program code). 
The second complication involves reading the 
variables back: if the initial write to disk wrote 
more than required, when the data is read back the 
extra data will overwrite areas of storage which 
were not intended to be modified. This could have 
confusing side effects on some of the other pro- 
gram variables. 
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Saving Program State under UCSD Pascal continued... 


The easiest way to solve both of these problems 
is to create a single record to contain our global 
variables, and write it to disk using the BLOCK- 
WRITE intrinsic. Since each block is 512 bytes 
long, we would like our record to be a multiple of 
512 bytes long. We can check to see how long it is 
(using the SIZEOF intrinsic) to make sure that it 
is an exact multiple of 512. We can then write 
“SIZEOF(global_rec) div 512” blocks to disk. 


Writing the Heap to Disk 
The Heap is a thornier problem. Where is it? How 
big is it? Luckily UCSD includes two intrinsic 
functions to help us. The Heap is controlled via a 
“Heap Pointer” which contains the address of the 
next byte which can be allocated if a request is 
made for dynamic memory via the NEW intrinsic. 
The MARK intrinsic allows us to determine the 
current Heap pointer value, and the RESTORE 
intrinsic allows us to set that pointer. If we doa 
MARK during program initialization we will 
know where the Heap pointer was before the pro- 
gram started gathering “state”; if we MARK just 
prior to the save, we will know the final Heap 
pointer value. Note that these pointer values may 
be either byte or word addresses depending on the 
version of the operating system; for example, ver- 
sion I.5 uses byte addresses on the Z80 while ver- 
sion III.0 uses word addresses on the MicroEn- 
gine. Some implementation dependent code will be 
required here, but this is taken into account in the 
sample program which follows. 

Simple arithmetic can determine the length of 
the Heap used, so long as the length is less than 
32767: lengths greater than that will be computed 
correctly in an unsigned arithmetic sense, but they 
will appear to be negative to Pascal. Attempts to 
compute the number of blocks to transmit will be 
incorrect in sign (negative) and in magnitude. 

We now have all that we need to do a save or 
restore of a program’s state. The following pro- 
gram demonstrates that the INIT, SAVE, and 
RESTORE routines function properly. To use it, 
compile it and doa SAVE with it; run the compiler 
or some such (to mess up dynamic memory); then 
run it again and doa RESTORE with it; the same 
program state should be recovered without error. 
As you can see, the program was written to give 
error messages wherever appropriate. This tech- 
nique should work on all UCSD systems including 
Versions [.3, I.4, 1.5, II.0, II.1, and III.0; I believe 
that it will work for Version IV.0, but I am not 
certain of this. 


Note: UCSD Pascal is a trademark of the Regents of the University of 
California. 
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ss 


var 
rrosram state_save_restores ry s ¢ record case boolean of 


true t (rf ¢ tinteger )i 
tyre false? (i $ integer); 
€ dummy dynamic variable to show techniaue works } ends 
ature = array €1..300] of intesers besin 
mark ture = tintesers writeln(’Size of GLOBALS in bytes is ’s sizeof(slobals))s 
: new(r.r)s C clear off old directory if there } 
var € test to see how far hear rointer moves when inteser is allocated } 
{€ must be a multirle of 512 bytes lons to rrevent interference with mark(rse)F newlser)s mark( ser D5 
run-time stack when read back in during restore } if (abs(r.i - sei) = 1) then besin 
slobals $ record Slobals.rointer_tyre t= word_addresss 
rointer_tyre { (bute_address, word_address )3 writeln(’Word Address Machine.’ 5 
old_mark { markK_tyres end 
newmark $ merk_tyures else if (abs{rei - sei) = 2) then besin 
root } ta_tures globals.rointer_tyure t= bute_address?s 
trash ¢ array C1..252] of intesers writeln(’Bute Address Machine.’ 
ends eng 
€ the following is not part of the state } else begin 
ch ? chars slobals.rointer_ture t= byte_addresss 
writeln( WARNING! Unable to determine address mode of machine.’ )+ 
Procedure write_mark( title ! strings some_mark $ mark tures ends 
var % € must be done before rrosram starts usins Hear } 
€ allows us to "see" the value of @ Pointer as an integer } mark( globels.old_mark )} 


trix ¢ record case boolean of write_mark(/ Initial Mark = ’y globals-old_mark )5 
true 3 ¢i inteser )+ ends € init } 


false! (rp { tinteser )i 
ends 
begin 
trix.p t= some_marks $ ins 
writeln(titler trin.di)} ae ie on as 
ends C write_mark }3 Teng: be t a eens 
besin 
if (memavail < 600) then 
{ must have about 512 bytes slor between Hear and stack in case 
read (during restore) writes on tor of dynamic stack erea } 
writeln(’ WARNING? cannot Save safely unless MEMAVAIL > 600.’ DF 
mark( globals.new_mark )5 
write_mark(’Seve Merk = ‘+s slobals.new_mark )3 
rerest , 
write(’Enter save file name! ‘)s readin( fname )s 
if (lensth( fname) = 0) then exit(save)s 
fname t= concat(fnamer’.state’ ds 
C$I-} rewrite(seve_file, fname)s CSIt} 
until (ioresult = 0)5 
€ write GLORALS srea first } 
if ((sizeof(slobals) mod 512) <> 0) then 
writeln(’WARNING! SIZEOF(GLOBALS) should be a multirle of 512 ’»+ 
‘but it is ‘» sizeof(slobals))s 
write( ‘Savinsess’ )F , 
€ notet if GLOBALS is HUGE (> 327467 bytes) then SIZEOF will be nesative 
and the followins comrutation will fail miserably ! 3 
len t= (sizeof(slobals) + 511) div 51235 
write(leny ’ blocks of slobals...’ )5 
i t= blockwrite(save_filer slobals: len): 
if (i <> len) or (ioresult <> 0) then besin 
writelns writeln(’Error during save.’ )# ends 
{ now write Hear area } 
€ note! if the total size of the saved hear is greater than 32767» 
then the following computation will fail miserably. } 
len t= ord(slobals.new_mark) - ord(slobals.old_mark )5 
if (slobsls.rointer_tyure = byte_address) then len t= (len + S11) div 512 
else len t= (len + 255) div 2563 
write(lens ’ blocks of Hear...’ )# 
i t= blockwrite(save_filey globals.old_markt, len 5 
if (i <> len) or (ioresult <>» 0) then besin 
writeln? writeln(’Error during save.’ )+ ends 
close(save_fileylock 5 
writeln(’Ttone.’ )§ 
ends € save } 


procedure saves 
var 
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80 CHARACTER VIDEO BOARD — S-100 


All This on ONE BOARD: 

e Keyboard port with TYPE-AHEAD buffer 

e 8275 CRT controller with light pen port 

e Two 2716's—program & character rom’s 
e Optional 2716 for CHARACTER GRAPHICS 
e All screen & Keyboard ram 

e SIMULTANEOUS 1/0 or Memory mapped 
@ Z-80 MPU—2 or 4 Mhz system clock 

e Easy to adapt Software 

e Uses only EASY-TO-GET parts 

e Use in any S-100 system 

e 696 Bus Compliance: D8 M 16 18 T200 

e Build for less than $200 

e Now Includes Crystal and Heat Sink, $9.85 value. 


Introducing The VDB-A 
Bare board with Documentation $49.50 
+ $2 s&h (Ill. res. add 6% tax) 


Simplway 


PRODUCTS CO. 
P.O. Box 601, Dept. MSO, 
Hoffman Estates, IL 60195 

Dealer Inquiries Invited 
312/359-7337 
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write_mark(’Restored Mark 


ends 
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€ restore } 


Frocedure set arrays 


Saving Program State under UCSD Pascal continued... 
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EASY KEY 


Makes Wordstar simple 
for Televideo 


$99.95 


36 of the most commonly used word- 
processing functions implemented for 
single Keystroke operation. 


13 new keycaps identify the functions, 
color coding makes them easy to find. 


For Televideo 950, 800, 800A, 802, & 802H 


Send Wordstar serial number. Please 
identify disk format for 950. 


Dealer Inquiries Invited 


MICRO SYSTEMS INC. 


978 Tiogue Ave., Coventry, RI 02816 
(401) 828-7270 


Your Televideo & Compupro Dealer 


Wordstar is a trademark of Micropro International 
Compupro is a trademark of Godbout Electronics 


VISA and Mastercard accepted 
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RADAR 
CP/M® DATA ENTRY 


An acronym for “Random Access Data 
Aquisition & Retrieval’, RADAR will convert 
any CP/M computer into a powerful data en- 
try station with complete key-to-disk 
capabilities. 

RADAR provides all the most wanted 
features including full check digit verifica- 
tion, double key verification, 16 totalling ac- 
cumulators, date check, data type verifica- 
tion by masks, controlled access, etc. 
RADAR was designed and optimized for the 
highest possible throughput in demanding 
data entry enviornments. Written entirely in 
machine language, RADAR is extremely 
fast, guiding but never obstructing the 
operator. RADAR may be used to edit 
and/or update existing data and it supports 
access to individual data records by relative 
position or record content. Records may be 
added, deleted, inserted, appended or edited 
with ease. 

RADAR is the ideal replacement for key 
punch machines and 3741 type key-to-disk 
systems, combining the speed of key-punch 
with the convenience of CP/M's virtual file 
access. RADAR’s many verification 
mechanisms insure the most accurate entry 
possible. 

A single user license is $495 and special 
multi-machine license arrangements are 
available. The user's manual is available 
separately for $25. 


For more information about RADAR contact: 
SOUTHERN 


COMPUTER 
= } SYSTEMS, INC. 

PO ara 

t AL 15055 


y AL 
11649 


CPIM is a registered trademark of Digital Research 
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ALTOS COMPUTERS RETAIL PREPAY 
5000-15 Single User (64K, 2-1MB 5" disks) $2995 $2399 
5000-5D Single User (64K, 1MB + 5MB 5” disk) $5995 $4795 
8600-10 8-User (512K, .6MB + 10MB disks) $10500 $8399 


AVL ‘EAGLE’ SERIES DESKTOP COMPUTERS 


Eagle Il Desktop System (64K, dual 400K disk) $2995 
Eagle Ill Desktop System (64K, dual 800K disk) 53995 
Eagle IV Desktop System (64K, 800K + 7 .5MB disk) $5995 

for ‘Acctg. Plus’ & ‘Spellbinder’ W/P ADD $2000 


COLUMBIA DATA PRODUCTS COMPUTERS PREPAY 
NEW! Multi Personal Computer (128K, 2-400K disks, 8-slots) 
(IBM PC LOOK-ALIKE - far greater value) $2995 
1503-2 System (128K, dual 800K disks) $2845 
1802-1 System (128K, dual 1MB 8” disks) CALL! 
CONCEPT 1000 - MultiBus - up to 16 users CALL! 
CORVUS DESKTOP COMPUTERS 

32-bit Mainframe power in a GeSktop SYStOM.........:cesceseessesssersreeereeseescessesseeetenseeneester 
NEW! ‘Concept’ (256K, 68000, 120X56 CRT) from $4995 
Disk subsystems (6, 11 & 20MB) from $2695 
DIGITAL EQUIPMENT CORP. (DEC) PREPAY 

Destined to become legends in their Own time................c.:cccsecceseeseeseeeeeseeeseeesereesenes 
‘Rainbow 100' Z80/8088 w/CP/M-80/86, 132X24CRT $3495 
Professional 300 series (F11 CPU) from $3995 


RETAIL PREPAY 
$10995 $9995 
$11995 $10895 


RETAIL PREPAY 


DYNABYTE S100 COMPUTERS 
NEW! ‘Monarch’ 6600 (256K, 10MB Disk, etc.) 
NEWI ‘Monarch’ 6900 


MORROW ‘DECISION’ $100 COMPUTERS 


MATRIX PRINTERS 
NEW! Anadex DP9501A Printer (200 cps) 


NEW! Anadex DP9620A (300/150 cps) DP/WP Printer 
DEC Letterprinter 100 (30/ 80/240 cps) DP/ WP Prtr. 


Florida Data OSP 120 (600/150 cps) Printer 
Flor. Data OSP 120 (600/ 150 cps) printer 
ID'S ‘Prism’ 4-color printer (150/200 cps) 
IDS 560-G Printer 

Tally MT 160-1 series (40/160 cps) from... 
Tally MT 1800 series (50/200 cps) Printer: 
Okidata 82A (120 cps - RS232 & Cent.) 
Okidata 83A (120 cps - wide carrage) 
Okidata 84 (200 cps - Dot Plot Graphics) 


LETTER QUALITY PRINTERS 
Diablo 620 Printer (25 cpa) 


LOOK NO FURTHER. .........0sseseesessesserseeeseeees, WE’VE GOT YOUR PRICE! 


RETAIL PREPAY 


$1725 


$3900 
$4200 
$1995 
$1395 
$845 
$1995 
$649 
$995 
$1495 


1399 
$1599 
$2699 
$3399 
$3699 
$1695 


$1199 
CALL! 
$1639 
“S495 


$755 
$T199 


RETAIL PREPAY 
$2000 $1699 


Micro Decision (64K, dual 200K disks, Word Stat, etc.) $1495 
‘Desktop’ model (65K, 2-400K 5" disks) $4195 $3495 
‘Rackmount’ model (65K, 2-500K 8" disks) $4375 $3695 
Discus M10 (10MB 5” rigid disk subsystem) $2795 $2495 
Discus M16 (16MB, 5” rigid disk subsystem) $3495 $2995 
Discus M20 (20MB 8’ rigid disk subsystem) $4795 $3995 
A822S Dual Slimline 8” floppy pkg. (2MB) $1995 $1695 


N.E.C. DESKTOP COMPUTERS 


Hold on to your hats . . 
puting will never be the same! (IBM DATA MASTER LOOK ALIKE) 


RETAIL PREPAY 


. the ‘Advanced Personal Computer’ has arrived! Desktop com- 


NEW! ‘HO1' 128K, 8086, 1MB 8” disk GREEN screen $3295 
NEW! ‘HO3' 128K, 8086, 2MB 8” disks COLOR 34995 
Options: 128K RAM $600 

Graphics from $600, 8087, 2S + 2P 1/0 $250 
PC8001 Pers. Computer or PC8031 Dual disk $995 $700 
PC8012 1° & RAM Expansion Unit $649 3500 


NON-LINEAR SYSTEMS PORTABLE COMPUTERS 


KAYPRO II a better value than either Osborne or Otronal! includes: 9” 80x24 CRT, two 195K 


disks, 64K, Z80, CP/M, ‘Select’ W/P, ProfitPlan, SBASIC, etc. 
KPRO 5 (same with 5MB rigid disk) 
SANYO DESKTOP COMPUTERS 


$1995 
$4495 


RETAIL PREPAY 


MBC- 1000 ‘Creative Computer’ 66K, Z80, 300K disk $1995 1595 
BDF-160 Single 300K Add-on Drive Pkg. $995 

BDF-360 Dual 300K Add-on Drive Pkg. $1595 $1335 
BDF-860 Dual 1MB 8” Add-on Drive Pkg. $2795 $2395 
MBC-2000 64K Desktop System (2-300K disk) $3495 $2995 
MBC-3000 64K Desktop System (2-1MB disk) $4995 CALL! 
SYSTEMS GROUP S100 COMPUTERS RETAIL PREPAY 


System 2814 (64K RAM, 2MB Disk) 5890 599 
System 2824 Two User (128K RAM, 2MB Disk) $6980 55445 
System 2819 (64K RAM, 11MB Disk) $8905 $6949 


TELEVIDEO COMPUTER SYSTEMS 
TS-800 64K Satellite Wrkstn. for TS-806 


RETAIL PREPAY 


TS-802 Desktop System (64K, 2-800K disks) $3495 $2699 
TS-802H Similar with 7.5MB Rigid Disk $6995 55255 
TS-806 Computer (64K, 800K + 7.5MB disk) $6995 $5455 
‘TeleSolutions’ (WordStar & CalcStar) $495 ~3400 


VECTOR GRAPHIC S100 SYSTEMS 


Vector offers ON-SITE service & the most powerful W/P & spreadsheet software available 


on CP/M systems. TOP RATED in user surveys for over three years! 


System 2800 - dual 1MB 8” drives IN STOCK! $5495 
Vector 4/20 (128K, 2-600K disks, Z80B + 8088) $4495 
Vector 4/30 (128K, 600K + 5MB disks, Z80B + 8088) $5995 


With Memorite Ill Included 


If you can find a better value than Vector - BUY IT! 
RETAIL PREPAY 
$2995 $2395 


$2995 
CALL 


XEROX DESKTOP COMPUTER SYSTEMS 
‘SAM’ 820-1 (64K, dual 92K drives) 
‘SAM’ 820-2 (64K, dual 8” 256K drives) $3795 
‘SAM’ 820-II (64K, dual 8” 1MB drives) 

Add $169 for CP/M 


VIDEO DISPLAY TERMINALS 
ADDS ‘Viewpoint’ series from... 
ADDS ‘Viewpoint 60’ emulating 
AMPEX Dialog-80 CLOSEOUT SPECIAL 
DEC VT-101 

DEC VT-131 

DataGraphix 132-1 Hacker Specials from 
SCION MicroAngelo Color & B/W Terminals . 
TeleVideo 910 $699 


TeleVideo 925C $995 
TeleVideo 950C $1195 
NEW! TeleVideo 970 

NEW! TeleVideo ‘Intelligent I’ (w/64K RAM) $1695 
Wyse WY-100 -or- ALtos ‘SmartTerm $995 


Wyse WY-200 (132x25) 
Zenith Z19 CRT Terminal (VT52 compatible) 


AES 


RETAIL PREPAY 


Diablo 630 Printer (40 cps) $2900 $2099 
Diablo 630 KSR Terminal (40 cps) $3325 $2749 
NEC 3510 (RS232( or 3530 (Cent.) Printer $2295 $1899 
NEC 7700 Printer (O.E.M. parallel) $2995 $2399 
NEC 7710 (RS232) or 7730 (Cent.) Printer $3095 $2499 
NEC 7720 KSR Terminal (55 cps) $3610 52855 
Qume Sprint 9/35 (35 cps) Printer $2160 $1899 
Qume Sprint 9/45 (45 cps) Ltd. Panel $2495 $2099 
Qume Sprint Il CALL! 
TEC (C. Itoh) F10 Printer (40 cps) $1995 $1499 
Single Bin Sheet Feed or Envelope Feed Mechanism $1550 $1100 
Dual Bin Sheet Feeder Mechanism $2300 $1600 
Envelope Feeder Mechanism $1495 $1100 
(Please specify NEC, Qume, Diablo or TEC model) 
CLOSEOUT - Qume Sprint 3 & 5 'SpeedFeed' $1295 $599 


SOFTWARE ‘BEST-SELLER’ LIST RETAIL PREPAY 


Ashton-Tate ‘dBASE Il' Relational DBMS $700 $530 
‘dBASE Il’ for 8088/8086 CACO 
Aspen ‘ProofReader & Grammatik’ $279 $229 
BPI Acctg., Job Cost or Inventory Modules $395 3315 
CIS COBOL Compiler $850 3750 
Digital Research PL/ 1-80 $500 3435 
Digital Research ‘Pascal MT+’ $475 3425 
DMA ‘THE FORMULA’ Applications Generator $595 3500 
Ecosoft ‘MicroStat' Statistics Library $295 5269 
Fox & Geller ‘Quickscreen’ Screen Bldr. $149 RK 
InterSystems ‘PASCAL-ZB' Z80 PASCAL $395 $350 
Lexisoft ‘Spellbinder’ Word Processing $495 3300 
MarketFax Sales & Marketing Tools $500 3425 
mDBS Ill with DRS, QRS & RTL Utilities $3000 
MicroPro WordStar w/ MailMerge & Tutorial $665 $429 
MicroPro ‘DataStar’ File Manager $350 5235 
Microsoft BASIC-80 Compiler $395 3325 
Microsoft FORTRAN-80 Compiler $500 3400 
Microsoft COBOL-80 Compiler $750 5600 
NECHE ‘Select’ or NECIS ‘Benchmark’ W/P $495 3400 
NECHE ‘Report Manager’ Electronic Wksht. $200 3169 
NWA ‘Statpak’ Statistics Library $495 $400 
NPI Law Office Mgr. w/ G/L & Docket Control $4000 
Oasis ‘The World Plus’ Speller (50K words) $150 “$109 
Open Systems Acctg. & Inv. (per module) $995 5755 
Palantir Word Processing Package $425 5350 
Peachtree ‘PeachPak 4’ (GL, AR, AP, PR, INV) $2475 $2000 
‘Reformatter' CP/M to IBM -or- DEC formats “$200 
‘Select’ w/‘SuperCalc’ W/P Package $595 3400 
Sorcim ‘SuperCalc' Electronic Worksheet $295 5215 
Sorcim ‘Pascal/M' for 8086 and 8088 $495 $400 
Sorcim ‘TRANS-86’ Translator for 8086 $125 SI0S 
Sorcim ‘ACT-86/88' (8086/8088 X-assembler) $175 3139 
Star Systems Acctg. (GL, AR, OE, AP, PO, PR) $1600 $1100 
Star Systems Property Management $950 ~ $755 
Systems Plus ‘Acctg. Plus’ (8 modules) $4760 $3500 
Systems Plus (Any One Module) $595 $469 
Target PlannerCalc gridsheet “$50 
TLB Solomon | Acctg. System (MDBS based) $2595 $2200 
TLB Solomon Series |i Job Cost Acctg. $3495 $3000 
Vector ‘VPS' Series (MEMS, EPL2, etc.) $1585 $2350 
Vector ‘CONECT’ Communications Software “$150 
VectorVector CP/M2.5 128K Upgrade (w/64K RAM card) S855 


(much more available - please call) 


$100 & MultiBus Circuit Cards - 10% to 20% off 

IMB offers the FINEST SELECTION and BEST VALUES in computers, peripherals and 
software, for the discriminating buyer. Our affiliate, Budget InfoSystems, is an ‘Authorized 
Distributor’ for many product lines and offers ‘Full Service’ for each - COMPLETE WARRAN- 
TY PROTECTION IS ALWAYS ASSURED! 

IBM specializes in service to FOREIGN, PROFESSIONAL, MILITARY, GOVERNMENTAL, 
INSTITUTIONAL, and 0.E.M. markets! Call for details regarding quantity discounts and low 
cost leasing plans. 

IBM values all of its customers, but we must encourage the untutored novice to purchase 
from a local ‘Authorized Dealer.’ to preserve product integrity. Feel free to contact our office 
if no local dealer is available. We must insist that ‘Turn-key Systems’ be purchased through 
our ‘Full Service’ associate. Budget InfoSystems, to assure proper customer support. 
TERMS: PREPAYMENT CONTACT; Scott Secor, Gen'l Mgr. 

F.O.B.: MPLS MN Delivery: Stock to 4 wks. A.R.O. 


International Microcomputer Brokers 
607 NE Highway Ten—Jefferson Center 
(across from NorthTown Mall) 


Blaine, MN 55434 
(612) 780-5361 -or- 786-5545 
Hours: Daily 10AM to 6PM CST 
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A Comparison Between 
Stoic and Forth 


by Richard H. Mossip 


toic is a development from Forth. It uses 
a very similar structure, and much of the 
syntax is identical. Stoic in its present 
form can be best regarded as an en- 
hanced form of Forth specifically adapted to 
CP/M. In brief, Stoic is faster and easier to use, 
while Forth is somewhat smaller, and available on 
many different CPUs in a standardised form. 


History 

Stoic was written as a combined project at Har- 
vard Medical School and MIT for biomedical ap- 
plications. A version of this with some adaptations 
to CP/M appears in the CP/M users group libra- 
ry. It has a file system, but it is not compatible 
with CP/M. The version of Stoic discussed here, 
Stoic-XB, was made fully compatible with CP/M 
and considerably extended by Jeff Zurkow of Avo- 
cet Systems. I have made further modifications to 
improve user convenience and add some extra fea- 
tures. 


File System 

Forth does not have a file system as such. Disk 
space is addressed as sequential 1K blocks. Stoic- 
XB is file-oriented, and is totally CP/M compati- 
ble. The file system in Stoic-XB operates through 
CP/M and allows for creating, opening, closing, 
deleting and getting the size and directory files. 
There are also sequential and random access com- 
mands on a byte-by-byte basis both for high-level 
code and as machine code callable subroutines. 
File operations can be either buffered or unbuf- 
fered. Any number of file control blocks can be 
created, and simultaneously open. 

Forth source code is written in 1K “Screens”— 
each is a 16 X 64 video screen image. This results 
in larger source code than a file-oriented system, 
as TABs and short lines do not save space. This 
results in a tendency to skimp on comments so as 
to pack the maximum code onto a screen. As a 
result this produces code which is hard to under- 
stand later on, and to maintain. Stoic-XB source 
files are similar to assembly-language source files 
in that there is little penalty for “prettyprinting”’ 
to show loops and conditionals clearly, and include 
extensive comments. 
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Editor Convenience 

Both languages have an editor built in as part of 
the language. The Forth editor is usually a very 
simple screen editor. The Stoic-XB editor is a very 
powerful general purpose text editor modelled af- 
ter the NOVA editor, with command changes to 
be compatible with CP/M’s-ED. It is much more 
convenient to use. Backup files are automatically 
maintained by the editor in Stoic-XB, and not at 
all in Forth. 


Number of Commands 

Forth is smaller than Stoic partly because there 
are fewer commands. For example, Forth has 5 
comparisons, Stoic 16. These take up space, but 
make application programs shorter. The com- 
mands are listed by section to give a clearer pic- 
ture. 


Speed of Execution 
75% of the definitions in Stoic are in directly exe- 
cutable machine code. The other 25% are in high- 
level code. Forth is almost exactly the other way 
round, with 25% in code and 75% in high-level. As 
a result of this, Stoic programs execute faster, as 
they are usually closer to machine code. On the 
Interface Age prime number benchmark the times 
were (2MHz Z80): 

FORTH 303 seconds 

STOIC-XB_ 179 seconds (41% faster) 

This comparison was made executing identical 

code on the same machine. 


Dictionary Structure 

Forth can have up to 31 significant characters in a 
name. Stoic truncates at 5 and keeps the length. 
This can lead to ambiguity if one is careless (in- 
putl and input2 are the same, linput and 2input 
are not.) The Forth dictionary is a single linked 
list. The Stoic-XB dictionary is broken into sec- 
tions with a hash algorithm which makes loading 
(compilation) 8 times faster for Stoic-XB. This is 
important when cross-compiling long application 
programs. 


Execution from the Keyboard 
Stoic has a compile buffer into which typed-in def- 
initions are compiled before execution. As a result 


conditional and loop commands can be executed 
immediately. Forth lacks this feature, and so con- 
ditionals and loops can only exist in colon defini- 
tions. This makes testing definitions from the key- 
board a great deal easier with Stoic, as there are 
no restrictions. 


Stacks 

Forth has two stacks. The parameter stack stores 
data, and the return stack stores addresses for 
nested high-level definitions. Loop limits are also 
stored on the return stack, making the loop index 
only available at the same level of subroutine nest- 
ing as the loop itself. This makes it easier to mess 
up the return stack inadvertently and get lost. Sto- 
ic maintains an entirely separate loop stack for 
keeping loop indices and other purposes, making it 
less likely to become contaminated. 


Assembly Language 

Both Forth and Stoic have basically similar as- 
semblers. Most implementations of Forth have an 
8080 assembler, but Z80 versions are also avail- 
able. The Stoic-XB assembler has several which 
mimic the high-level control structures of IF 


... ELSE... END IF BEGIN ... END 
BEGIN ..IF..REPEAT. This makes it very 
easy to code an already written high-level routine 
to make it run faster. In addition most of the math 
operations exist in Stoic-XB as callable subrou- 
tines as well as high-level commands. Some disk 
access subroutines are also provided. 


Strings 
These are a standard data type with Stoic which 
makes string handling easier, and also the format 


for definitions more consistent (the name can pre- 
cede the colon in true RPN fashion). 


Double-Precision Integer and 
Floating Point 

These data types are available as standard mod- 
ules for Stoic. They are also available for some 
Forth implementations. 


Transportability 

Forth is implemented in a standardised form on 
many processors, including most Micros and many 
Minis. Stoic is at present only available on 8080/ 
Z80/8085 systems. This is important if you use 
several CPUs, not if you don’t. It is easier to write 
Forth for a new CPU as there is less machine code 
involved. 


Conclusion 

Stoic and Forth are very close. The differences are 
ones of degree not kind. It would be possible to 
write all the Stoic features into Forth. You would 
then have Stoic! Similarly you could remove fea- 
tures from Stoic and get Forth. 

In a system which uses CP/M and file opera- 
tions I feel there are clear advantages to Stoic-XB. 
If you need to have programs directly translatable 
between CPUs and file operations are not impor- 
tant, Forth would be quicker. 

It is much more convenient to write programs in 
Stoic, due to the file structure and better editor. I 
also feel that for utility programs which stand 
alone the Stoic-XB cross-compiler is easier to use 
than the Forth one I have examined. This may well 
be influenced by the fact that I am familiar with it 
and know it works well. The Forth one I have 
looked at, but not yet used in earnest. 


WE GAVE YOUR DRIVES THE FIRST BREAK THEY EVER HAD... 


Our DCU is the original : 

Drive Control Unit that turns 

floppy drives off during periods of 

inactivity by using a state of the art optoisolator 
with zero crossover control and built in activity monitor. 


We've continued to improve the design (it’s the size of a business card to 
fit within the drive), ease installation time (about 15 minutes) and models are 
now available for virtually all popular 8 inch drives (including a foreign version). 


So for those of you, who are still grinding down your drives, wearing out media 
and exposing yourself to unnecessary noise...isn’t it time to give them a break? 


Assembled and tested ............0. $39.95 
Kit with Documentation ........... $29.95 
Type of drive MUST be stated with order. 
NY residents add local tax. Include $1.50 

for postage and handling. 

OPTRONICS TECHNOLOGY 

P.O. Box 81, Pittsford, N.Y. 14534, (716) 377-0369 
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The Stoic Language 


Why Stoic was selected as the development 
language for the control program of a new 
scientific instrument 


by Richard H. Mossip 


Introduction 

About 18 months ago I started on the design of a 
new scientific instrument intended as a smart re- 
placement for a stripchart recorder. Stripchart re- 
corders move a pen across a sheet of paper in re- 
sponse to a voltage signal, while the paper is 
moved past the pen at constant speed to produce a 
graphical record. They are used widely in labora- 
tories for making continuous measurements dur- 
ing an experiment, often for long periods while 
they are unattended. We felt that with the availa- 
bility of high-quality, low-priced dot-matrix print- 
ers such as the Epson MX80 (which has excellent 
positional accuracy for graphics), a stripchart re- 
corder could be made using a microprocessor to 
provide many features which would be very useful, 
and had never been available before. 


The Hardware 

The instrument is designed around an 8085 micro- 
processor. The 8085 was chosen because it is well 
suited to a moderate-sized application with a lot of 
EPROM program memory and I/O but only a 
small amount (4K) of RAM, so the Z80’s ability 
to simply refresh dynamic RAM was not needed. 
There was also available a commercial single- 
board system (the Explorer, from Netronics Inc., 
New Milford, CT) which had the right mix of 
memory and I/O, as well as an S-100 bus interface 
which would allow system expansion in the future. 
This choice also allowed us the unusual luxury of 
running a CP/M system on the target hardware 
during development, for program debugging. This 
proved to be extremely useful, and saved us much 
time. 

To minimize development time and cost, we de- 
cided to use commercially available assemblies 
wherever possible. As mentioned above, a single- 
board CPU system was selected (after examining 
about 50 possibilities) and an S-100 EPROM card 
was used for program memory. The multiplexed 
16-bit Analog-Digital converter and the key- 
board/display modules were specially developed, 
as no suitable units existed. 


Richard H. Mossip, 13 W. Buena Vista Way, 
Bloomingdale, NJ 07403. 
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The Software 

The novel features of the instrument lie in the soft- 
ware, which is quite extensive (26K of object code 
for the basic instrument). The user can print up to 
12 traces as a stripchart recorder, with the digital 
values for all 12 and the time (either real or 
elapsed) printed alongside. The printer is inter- 
rupt-driven, using one of the hardware vectored in- 
terupts on the 8085; the optional RS-232 interface 
uses another. The real-time clock is maintained 
with the non-maskable interrupt. 

The program is divided into two parts, setup 
and runtime. The setup portion interacts with the 
user to get the gain and sensitivity for each mea- 
surement channel, whether a channel is to be 
printed as an analog trace or a digital printout, or 
both, the speed of the chart etc. This is done with 
very extensive prompting and printed messages in 
case the instruction manual is lost (or not read!). 
There is also a fast method for frequent users. An 
editing mode is provided for changing a program 
which is already set up. 

The runtime portion controls the analog-digital 
conversion, averages the measured data to reduce 
noise, and formats it into a buffer which is sent to 
the printer as a string of graphics characters. It 
also monitors the keyboard while the chart is 
printing and provides commands for changing any 
parameter while the chart is running. The new val- 
ue is printed on the chart as a record of the change 
and when it was made. 

Optional features include a fast RAM data buf- 
fer to capture events occurring faster than the 
printer can record them, and also a built-in user- 
available language emulating a programmable 
calculator with a program which is run each time a 
measurement is taken. This allows complex data 
manipulation in between measurement and print- 
ing (we even have a program for demonstrations 
which prints pretty charts without making mea- 
surements . . . ). Other features available are an 
RS-232 interface and cassette program storage. 


Selecting a Language 
One of the most important tasks was to select the 
language to be used in developing the software. 


Speed of development was more important than 
minimizing object code size, as EPROM costs 
were expected to come down, and very high pro- 
duction volume is not anticipated. This indicates 
the desirability of a high-level language. Some 
routines clearly would have to be in assembly lan- 
guage (the actual measurement routines, interrupt 
handlers, etc.) so ease of interfacing to machine 
language modules was important. Because the 
program was to be put in EPROM, runtime over- 
head should be minimized. 

Development was started using Microsoft Ba- 
sic, with the intention of compiling when it was 
running to increase speed and reduce the object 
code size. However, when it was discovered that 
the runtime overhead for a program containing 
nothing other than an end-of-file marker was in 
excess of 8K, this clearly was not the optimum 
choice. With one-third of the program written, the 
compiled object code occupied 26K, and the 
source was too long for the interpreter in a 48K 
system. At this point I began a search for a better 
way. The following table shows various parame- 
ters important to this application (my wish list) 
rated on a scale of 0 (worst) to 5 (best) for several 
languages. These ratings are a personal opinion, 


and yours may well differ! 
High Com- Assembler Ease 

Language Level Fast pact Interface of use 
Basic 5 2 5 
Compiled 

Basic 
Pascal 
Forth 
Stoic 
PL/I 
Macro- 

Assembler 1 5 5 =) 0 

The language chosen is not available directly to 


the user, as the system is menu-driven, so general 
understanding of the language was unimportant. 

Software development is much more rapid with 
an interpreter than a compiler. One can debug the 
code and make immediate corrections, without 
having to use a separate editor, compiler, linking 
loader, and debugger, all of which take several 
minutes to load and run, and the whole process has 
to be repeated for each correction. 

A compiler should be able to produce much 
more compact code than an interpreter, and also 
execute faster, so reducing the amount of machine 
code routines which had to be written. Interme- 
diate code languages such as CBASIC and UCSD 
Pascal seemed to me to combine the development 


disadvantages of a compiler with a large runtime 
overhead, and so were rejected. 

At the other end of the scale, assembly lan- 
guage is fast and compact, but the development 
time for a complex program such as this was ex- 
pected to be too long. This time could be reduced 
by macro languages such as ML80, but not to a 
great extent, as the macros would have to be writ- 
ten also. 

The best choice seemed to lie between Pascal 
(with a ‘naked code’ compiler), Forth, Stoic and 
PL/M. C was also a possibility, but at that time a 
suitable compiler was not available. It also tends to 
be clumsy for floating-point math. 

Forth and Stoic both have the great advantage 
of being interpretive in nature, which makes for 
fast debugging, yet both produce fast, compact 
code. Either of these was felt to be far preferable 
for this project to a compile-only language. Cross- 
compilers which could produce stripped-down ob- 
ject code which could be placed in EPROM were 
available for both languages. 

We decided on Stoic for several reasons, and 
felt Forth was the next best alternative. Stoic is an 
outgrowth of Forth, written at MIT and Harvard 
Medical School. It has the same structure, and 
much of the syntax is similar. The internal struc- 
ture is slightly different from Forth. Stoic has 4 
stacks, not 2, which makes it more resistant to 
crashing by programming errors. More instruc- 
tions are built into the language. The principal dif- 
ference is that Stoic is a file-oriented language, 
while Forth accesses the disk as 1K blocks in a 
virtual-memory format. This may seem minor, but 
it has an important impact on programming style. 
With Forth, a line always occupies 64 characters, 
and a 16-line page 1K whether you use it all or not. 
This means that there is a tendency to compress a 
lot of code onto one page at the expense of clear 
structured layout and full comments. This fre- 
quently results in programs which are difficult to 
understand later, and are time-consuming to 
maintain. Program maintenance often is a signifi- 
cant cost over the life cycle of a product. 

With Stoic, as with a regular assembler, only 
the characters used appear in the file, and there is 
less pressure to save space. Program layout is 
usually indented to show the structure, and com- 
ments can be added freely. A very convenient and 
powerful text editor, modelled on the NOVA, is 
part of the Stoic language. It is already in RAM, 
so you can enter or leave the editor in fraction of a 


Forth and Stoic are 
both interpretive in nature, yet both 
produce fast, compact code. 
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second. As with a Basic interpreter, you can test a 
portion of a program, correct an error, then try it 
again in a few seconds. You can also try out a rou- 
tine from the keyboard in ‘immediate’ mode, one 
piece at a time, to locate problems, and also in- 
spect or change any variable. 

Because Forth and Stoic are ‘Stack machines,’ 
subroutines normally communicate with each oth- 
er using the stack. They thus require far fewer 
variables than other languages. In PL/I and Pas- 
cal, each procedure has its own set of local vari- 
ables. With Stoic most of these can be eliminated, 
and thus save considerable amounts of RAM. 

A second major reason that Stoic was selected 
over Forth was the cross-compiler or target com- 
piler. This compiler takes the program, after test- 
ing on a development system, and produces com- 
pact ROMable code which can be built into the 
final instrument. The Stoic cross-compiler was de- 
signed so that the same program source files could 
be used, either in the resident (development) sys- 
tem or cross-compiled simply by changing the 
short loader file which loads each of the source 
code modules. This minimizes problems which 
show up on cross-compiling. It was felt that this 
transition could be made more easily with the Sto- 
ic cross-compiler rather than with Forth. The Sto- 
ic system used (Avocet System, 804 S. State St, 
Dover, DE 19901; $2,000) is totally CP/M-com- 
patible both for loading and for its file structure. 
This fitted in well with our development system, 
and was compatible with existing software and 
utilities. A third reason was the availability of a 
fast floating-point math package. 


Getting Started 

I started out with Stoic using the version in the 
CP/M Users’ Group library (Volume 23). This 
has some disk I/O grafted onto the MIT program. 
It works fine, but the file and disk structure is in- 
compatible with CP/M. The documentation is 
quite extensive, and reasonably clear in the appli- 
cations areas of the language. The inner workings 
are sketchily explained at best. This is only a prob- 
lem, however, if one wishes to make major modifi- 
cations to the language itself, which is something 
one cannot do at all in most languages. The area 
which is missing (and even more missing for 


Forth) is a tutorial publication indicating how one 
should write programs effectively in the language. 
Program structure is quite different from that of 
Basic and many other languages, as the use of sub- 
routines is much more extensive. 

One thing which seemed a little strange at first 
was the Reverse Polish Notation. I had strongly 
preferred the ‘bracketed’ format as I was used to 
it. However it only took a week or so to be com- 
pletely converted to what I now feel is a much eas- 
ier and more logically structured notation. There 
are two plusses for Reverse Polish Notation 
(RPN). One which is unarguable is the much fas- 
ter execution. When a language such as Basic 
scans an expression to see how it should be evalu- 
ated, whenever it finds a bracket it must halt, look 
for further brackets before the matching closing 
bracket, and evaluate from the innermost pair of 
brackets outwards. This is clearly much more 
complex and thus slower than the RPN approach 
of carrying out each command as it is encountered. 
In RPN, the order of executing commands (such 
as +,—,*,/ etc.) is set when the expression is writ- 
ten, and there is no ambiguity. This also eliminates 
the commonest cause of syntax errors with Basic 
(missing parentheses) as they are not needed at 
all! The other plus is that once one has gotten used 
to the different notation, it does seem much clear- 
er, and it is easier to figure out what is happening 
with a complex expression. 

The use of a stack is also an important feature, 
which ties in closely with RPN. This behaves just 
like a machine language stack, onto which you can 
push data, and then pop it off at a later time. In 
Stoic (and Forth) each operation pops its input 
data off the stack, and pushes the result on the top 
of the stack. For example, the operator + removes 
the top two items from the stack, adds them to- 
gether, and returns the result to the top of the 
stack. All the other arithmetic operators act simi- 
larly. As a simple comparison, here is the same 
expression with parentheses and in RPN: 

(A + B) *(C + D) AB+CD+* 

11 operators 7 operators 

A, B, C, D are numbers (literals). In Stoic, en- 
tering a literal causes its value to be put on the 
stack, so when the + operator is encountered the 
stack contains A and B. These are added together, 


Intermediate results can be ‘‘buried’’ on the stack 
for later recovery. This use of the stack almost 
completely eliminates the need for local variables. 
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and the stack is left with the sum A+B. C and D 
are also literals, so when the second + is reached 
the stack contains three items: A+B, C and D. 
The + takes off C and D and returns C+D. The 
multiply operator, *, takes off two numbers, A+B 
and C+D, and multiplies them leaving the desired 
result on the stack for the next operation. This il- 
lustrates an important feature of stacks: interme- 
diate results can be ‘buried’ on the stack and re- 
covered when needed later. To do this there are 
several specialized stack manipulation commands 
to rearrange the stack. This use of the stack almost 
completely eliminates the need for local vari- 
ables. 

Another area in which Stoic differs from many 
other languages is that it gives you complete con- 
trol over the machine. You can perform any oper- 
ation on either addresses or on data, and use abso- 
lute, relative or labelled addresses. You have com- 
plete power, but with power also comes responsi- 
bility. It is up to the user to ensure that he is oper- 
ating on the correct data. Because data is put on 
the stack by earlier operations, Stoic does no type 
checking. If you add something to the address of a 
variable instead of to its contents, you will merely 
get the wrong answer. If you store data at the val- 
ue of a variable instead of at its address, then by 
Murphy’s law the data will probably go into the 
middle of the language and crash the system, re- 
quiring you to reload it from disk. The usual symp- 
tom of this is Stoic complaining that some perfect- 
ly reasonable command is ‘undefined’, because the 
thread linking the dictionary became broken. 
Checks for such things could have been incorpo- 
rated but would have slowed the language down 
and made it less flexible. If you want more checks, 
you can always redefine the language, using the 
language itself... . 

This may seem somewhat like Alice in Wonder- 
land but is really quite simple. All the commands 
(your program and the language also) are linked 
together as a list. When scanning a command this 
list is searched starting with the most recent defi- 
nition. The first match that is found is used. If you 
give a new function the same name as an existing 
one, Stoic will tell you you are redefining it as a 
warning. The new name is used for all later defini- 
tions, while the earlier one is still used for every- 


thing up to the redefinition. I used this feature for 
the first programming I did in Stoic to change the 
editor commands so as to be compatible with those 
for CP/M ED. 


What Stoic Programs Look Like 
Programs written in Stoic have no line numbers. 
All references are by name. The language stores 
the length and the first 5 letters only of the name 
in its dictionary, in order to conserve space. If rea- 
sonably descriptive names are chosen, the program 
becomes almost self-documenting in a similar way 
to CBASIC. Structured programming is strongly 
supported, and Stoic does not even possess a 
“GOTO” command. When you design a program 
in Stoic, you start from the top by deciding what 
the major modules are to do, and how they relate 
to each other. For example, in our application, the 
word which calls everything else is a continuous 
loop, as we never want to give the user access to 
Stoic. The major modules are: 


INITIALIZE sets up variables, tests memory, 
etc. 

SETUP gets the gain and zero for each printed 
channel from the user 

MEASURE measures all the active channels 
TIMEOUT checks to see if we should print a row 
of data 

SCALE scales the data for printing 

PRINTOUT formats the data for the printer 
STOP? checks the keyboard for the END key 


“Dianagraph” 
: INITIALIZE BEGIN 
SETUP BEGIN 
MEASURE TIMEOUT 
IF SCALE PRINTOUT ENDIF 
STOP? END 
0 END ; 


A definition in Stoic starts with a colon and ends 
with a semicolon. Each word in the definition is 
executed, in turn, as a subroutine, and must pre- 
viously have been defined. We first define each 
word as a dummy stub that just returns the results 
expected by the other routines, and then flesh 
them out in detail as the design progressses. 
BEGIN ... END is a loop structure that re- 
peats until the word before END leaves a non-zero 
number on the stack, when the loop exits. The out- 
er loop will continue forever because a zero is put 


You can define your own data structures to 
perform a particular task . . . Another feature 
of Stoic is the case of linking to machine code. 
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on the stack just before END. This is the last def- 
inition in the program and to execute it from the 
keyboard one types DIANAGRAPH. In the 
ROM version, it is executed automatically at pow- 
er-on. This form of organization means that the 
interface between modules is tested automatically 
as program development continues, and one does 
not have to fit everything together at the end of the 
project. The overhead for a subroutine is very 
small, so to minimize space a large number of 
short subroutines are used. When cross-compiled, 
the overhead for each subroutine is 4 bytes plus 2 
bytes for each call. Thus, a sequence of more than 
4 instructions used twice, or 2 instructions used 4 
times, uses less space in subroutine form. If speed 
is important, the tradeoff changes, but the time 
overhead is also quite short as the overhead for 
each high-level definition is about 50 microsec- 
onds. 


New Data Structures 

You can also define your own data structures to 
perform a particular task. We had to print out a 
great many different instructions to the user dur- 
ing the course of setup, as we wanted the instru- 
ment to be usable even when the manual was lost. 
To do this without excessive memory usage, we 
built a dictionary of the words to be used, saving 
further space by limiting the number of words in 
the dictionary to 256 so that a byte could be used 
as a pointer. This was not a serious limitation how- 
ever, aS messages with many words that are used 
only once can be put in the regular string format, 
and the wording can often be slightly changed to 
eliminate rarely used words. Each word thus took 
one byte as a position in the table, rather than a 
byte for each character. 

We found it easy to make the building of the 
dictionary automatic during program loading. A 
word “[”? was defined to indicate the start of a 
message and “‘]”’ to indicate the end. As each word 
in the message is encountered it is looked up in the 
dictionary and, if found, the word number is re- 
turned. If the word was not found, it is added to 
the end of the dictionary. The message is followed 
by a command to print it (TMSG). A typical 
source code entry for a message is: 

[PRESS ENTER WHEN READY] TMSG 

A useful utility was added to print out an alpha- 


betical listing of the dictionary, together with the 
number of uses for each word, as an aid when dic- 
tionary pruning was needed. 


Program Control 

The control constructs used by Stoic are IF.. 
ELSE..ENDIF; BEGIN...END; DO...LOOP 
(similar to FOR..NEXT in Basic). All of these fo- 
low the structured programming philosophy that a 
loop should have only one entry and one exit. This 
takes a little getting used to, but makes for pro- 
grams which are quite readily understood, partic- 
ularly when combined with indented layout to 
show the nesting of loops and conditionals. The 
programs are built up of ‘words’ which you define 
and are added to the language, and are in essence 
subroutines. These subroutines can be nested to 
any desired depth because of the stack structure of 
Stoic. 


Mixing High-Level with Assembler 
Another feature of Stoic is the ease of linking to 
machine code. If you want to write a routine in 
machine code, the instruction CODE< turns on 
the built-in assembler. At the end of the routine 
you push onto the stack any data to be returned, 
and jump to NEXT to return to the Stoic runtime 
interpreter. This routine is treated by Stoic identi- 
cally to any other routine. It is transparent to any 
routine using it whether the routine is in machine 
language or in high-level. This is a degree of flex- 
ibility which is hard to beat. 

When the program had been designed and 
tested, it was found that certain parts of it (which 
were concerned with scaling and formatting the 
data to be printed) did not run fast enough. The 
inner loops of these portions were rewritten using 
the Stoic assembler. This was particularly easy 
since the assembler has built into it (essentially as 
macros) control constructs which mimic those of 
the high-level language. There is an assembler 
IF...ELSE...ENDIF, a BEGIN...END (both of 
which can test for any flag). This provides struc- 
tured forward jumps within the same code defini- 
tion (a word defined in assembly language). A nice 
feature of Stoic is that all the CPU registers are 
available to you without restriction within a code 
definition. Most implementations of Forth have 
one register committed to a pointer to the next in- 


Without Stoic it would 
have been difficult to achieve as much 
in the time available. 
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struction which you must preserve, while in Stoic 
this pointer is maintained as a variable in memory. 


Writing a Language with Stoic 
Another part of the software for this instrument 
involves providing user-programmable math oper- 
ations on the data between measurement and 
printing, for applications such as integration, dif- 
ferentiation, averaging, and linearization, and also 
to provide flexible alarm and control functions. It 
was decided to provide this as a language, and to 
emulate a programmable calculator so that the 
user need not know a computer language. Stoic is 
well adapted to this, since the user program is en- 
tered into an area of memory as a list of routine 
addresses in their execution order. This list is then 
executed by the normal Stoic runtime interpret- 
er. 

To build the list, the keyboard entries are com- 
pared with a command table, which returns the 
command number if a match is found. The run- 
time address is found from an address list main- 
tained in the same order. This approach was found 
to be simpler than the usual Stoic linked vocabu- 
lary, because all instructions have 3 letters, and in 
the cross-compiled version the regular vocabulary 
operations are absent. The “stack” for the RPN 
calculator is maintained as 4 variables, to prevent 
the possibility of an incorrect user program crash- 
ing the system stack by leaving things on it or tak- 
ing too much off. Program editing features and a 
full trace mode, with complete printout of the 
stack at every operation, were added as debugging 
aids. The high speed of the Stoic runtime inter- 
preter is important in this application, as the pro- 
gram is run every time a row of dots is to be 
printed on the chart (1/2 second minimum at 
present, but we expect to speed it up to 1/8 sec- 
ond). This system has been tested in the field 
against dataloggers operating under Basic and, as 
expected, operated much faster for real-time data 
analysis. 


Conclusion 
We have completed development of the basic in- 
strument, and have shipped the first units. We are 
currently working on some of the options, and in 
retrospect feel that Stoic was the correct language 
choice for our project, and that it would have been 
difficult, if not impossible, to achieve as much in 
the time any other way. 

Stoic is ideal for medium or large programs. If 
it is important that the size be under 3K or so, the 
overhead would be too heavy, and assembler 
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should be used. With the cross-compiler one can 
generate stand-alone utilities very easily, and the 
result is almost disassembler-proof because frag- 
ments of machine code are mixed in with address 
lists, and all the names are removed! 

Having used Stoic for over a year, I feel that it 
is the ultimate hackers’ language. With Stoic, you 
can combine the best features both of Basic for 
quick turnaround and of machine language for 
speed. Anyone who is familiar with programming 
in assembler will find it very easy to use, and the 
high-level portions are as easy to use as BASIC. 
The only snag for a novice is that, apart from 
checking for empty or full stacks and for gross syn- 
tax errors such as failing to terminate definitions, 
Stoic takes few steps to protect you from yourself. 
The editor is so good that I use it for everything 
apart from word processing. It is more powerful 
than any other I have seen (including Z-TEL !) 
because all the features of Stoic are available to 
you within the editor, including taking commands 
from multiple disk files. 


CROMEMCO SYSTEM 
GSERS GPGRADE TO 
DOUBLE DENSITY 


We have been shipping the FDCX4 Double Density Upgrade Board 
for the Cromemco 4FDC single density disk controller board since 
February. The response by users has been enthusiastic. The FDCX4 
is now in use on a wide variety of systems. Some of the drives in use 
on these systems include Wangco, Tandon, and CDC 5” mini drives; 
PerSci 277, PerSci 299, Shugart, Siemens, Remex, and other 8” drives 
and various mixes of 5” and 8” drives on the same system. 


Some of the reasons for the success of the FDCX4 are: 


+4 Write precompensation to ensure reliable double density 
recording on the inner tracks. This is especially necessary 
on PerSci 277’s and most slow-seek 8” drives. 

Analog Phase Locked Loop Data Separator. The PLL is 
used in all modes, including single density, on both 5" and 
8" disks. ; 

Easy Installation - The main board plugs into the 1771 
socket on the 4FDC. One other 14 pin chip on the 4FDC is 
removed and a header plugged into the socket. If 8” drives 
are in use then one wire must be soldered to the 4FDC from 
the FDCX4. 

Still skeptical? The FDCX4 is sold with a special 15 day money- 
back guarantee. This means you can use it and see for yourself. 

Note: In order to operate in double density the FDCX4 requires 
CDOS V2.36 or later, and any CP/M used must be capable of double 
density operation with the Cromemco 16FDC. 

The price of the FDCX4 is $229.95 including shipping. C.O.D. 
orders are accepted only for deliveries within the USA. Export orders 
please include payment in US funds. Calif. residents include 6% sales 
tax. For a free copy of the Installation and Users Manual, write or call: 


JVB ELECTRONICS 
1601 Fulton Ave. Suite 1 
Sacramento, CA 95825 
Phone: (916) 483-0709 (10am - 3pm Pacific) 


CDOS, 4FDC, 16FDC are trademarks of Cromemco; CP/M is a trademark of Digital Research 
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Fancy 
Shmancy 


Elaborate microprocessor develop- 
ment systems cost a lot of money, and 
they can close off your engineering 
options by locking you into just one or 
two kinds of chips. Sound familiar? 
Well, read on—we've got a better idea. 


Use your desktop computer; anything 
that will run CP/M* is fine. With our 
microprocessor cross-assemblers you 
can produce software for eleven of the 
most popular chip families, and more 
are on the way. 


In two years on the market, our cross- 
assemblers have gained a reputation 
for quality, performance, and reliabili- 
ty. Hundreds of industrial R&D labs 
and several major semiconductor 
houses have found these products a 
fast, cost-effective way to develop 
their microprocessor software. We in- 
vite you to join them. 


CP/M CROSS-ASSEMBLERS 


Extremely fast absolute assemblers, 
running under CP/M. Generate object 
file (Intel hex or Motorola S-record for- 
mat) and listing from standard assem- 
bly language for the target processors 
listed. Features include comprehen- 
sive syntax checking, listing control, 
nested conditional assembly, and in- 
sertion of external source files. All ver- 
sions listed have been thoroughly 
field-tested and are available now. 


XASM05 6805 

XASMO9 

XASM18 

XASM48 8048/41 

XASM51 

XASM65 

XASM68 6800/01 
NEW! XASM75 NEC 7500 

XASMF8 F8/3870 
NEW! XASMZ8 

XASM400 . . . . COP400 


$200.00 each 


Visa and Mastercard accepted. We ship on 8" 
single-density and Softcard + 5.25" diskettes. Ask 
us about other formats. OEM INQUIRIES INVITED. 


* Trademark of Digital Research 
+ Trademark of Microsoft 


AVOCET 
SYSTEMS INC. 


804 S. STATE ST., DOVER, DEL. 19901 
302-734-0151 
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Software 


If you have a software package 
that you are offering for sale 
and would like to get some free 
publicity, send us a description 
(about 120 words) that follows 
the format of this column. We 
reserve the right to edit or re- 
ject any submission. 

Also, we do publish reviews 
of CP/M based software prod- 
ucts. If you would like to have 
your product reviewed, then 
you must furnish a review copy 
for this. Please call us first, 
before sending the review copy 
to us. 


Program Name: Improved 
Fixed Point Package for Pas- 
cal/Z. 

Hardware System: Any system 
capable of running Ithaca In- 
tersystems Pascal/Z. 

Minimum Memory: Same as 
Pascal/Z. 

Language: Z80 assembler. To 
be used with Pascal/Z. 
Description: Contains replace- 
ments for all routines in origi- 
nal Intersystems fixed point 
package, written intersystems 
fixed point package, written 
mostly in assembly language. 
All routines are ROMable and 
re-entrant. Routines are up to 
60 times faster and take up 
only about 2.2K bytes when as- 
sembled. (Only 1.5K if Realto- 
fix and Fixtoreal are removed.) 
They can be set for 2 to 105 di- 
gits of precision. All known 
bugs in the intersystems version 
have been corrected. 

Release: January 1982 

Price: $50.00: Documentation 
only $2.00 (refundable with 
purchase). 

Included with Price: Source file 
with and without comments, 
documentation, test/demo pro- 
gram. 

Where to Purchase It: Brom 
Microsystems Engineering, 


Directory 


Inc., Box 616, Winona, MN 
55987-0616. (507)-452-5805 


Program Name: REVAS 
Hardware System: Z80 CP/M 
system 

Minimum Memory Size: 32K 
Language: Machine Code 
Description: This powerful dis- 
assembler produces .ASM and 
.PRN type files and listings for 
reassembly, editing, or analysis. 
Supports ZILOG and TDL 
mnemonics, and the undocu- 
mented Z80 opcodes. Disassem 
bles memory resident code, or 
program files as long as 64K 
bytes. 

Permits command. abbrevia- 
tions, command strings, com- 
mand macros, and on-line help. 
Commands use symbolic argu- 
ments, or numbers in radix. 

I/O files can be interactively 
allocated; output goes to your 
choice of console, files, and 
printer. 

Full symbol table editing 
provides complete control over 
disassembly. Symbols and or 
data types are assigned auto- 
matically or interactively. Ana- 
lytical aids include insertion, 
calculation, search and cross- 
reference functions, and status 
displays of user and REVAS 
assigned parameters. 

When released: January 1982 
Price: $90.00 

What is included with price: 
Manual, SSSD 8” Disk or 
SSSD NorthStar or Micropolis 
Mod II 

Where to purchase it: Revasco, 
6032 Chariton Ave., Los An- 
geles, CA 90056. (213) 649- 
3575 


Program Name: Renumber for 
North Star Basic 

Hardware System: 8080/Z80 
North Star Basic 

Minimum Memory Size: 32K 


Software Directory continued... . 


Language: Object code 
Description: ““Renumber” ex- 
pands North Star’s Basic Re- 
numbering command so that 
the programmer can: (1) Re- 
number and/or move selected 
lines of a basic program. (2) 
Open up program and add 
more code than the correct line 
numbering sequence will allow. 
(3) Keep specific line number- 
ing sequences and renumber 
the rest. 

When released: February, 1982 
Price: $39.50 + $2.00 shipping 
What is included with price: 
Diskette and documentation 
Where to purchase it: E.T. 
Software Services, 1072 Casitas 
Pass Rd, Carpinteria, CA 
93013. (805) 684-8259 


Program Name: Scan for North 
Star Basic 

Hardware System: 8080/Z80 
North Star Basic 

Minimum Memory Size: 32K 
Language: Object code 
Description: Adds a new com- 
mand NorthStar Basic called 
“Scan.” With the scan com- 
mand the user has the ability 
to scan a basic program and se- 
lectively list only those program 
lines that contain a variable, 
word, group of words, line 
number reference or anything 
that is contained in any basic 
program line. 

When released: February, 1982 
Price: $29.50 + $2.00 shipping 
What is included with price: 
Diskette and documentation 
Where to purchase it: E.T. 
Software Services, 1072 Casitas 
Pass Rd, Carpinteria, CA 
93013. (805) 684-8259 


Program Name: macroP 
Hardware System: 8080/8085 / 
Z80 CP/M and 8086 CP/M- 
86 

Minimum Memory Size: 56K 
Language: Object Code 
Description: macroP allows you 


to add new, more powerful 
commands to your document 
formatter or language proces- 
sor. For the assembly language 
programmer, macroP converts 
simple assemblers into macro 
assemblers. For the high-level 
language programmer, macroP 
adds indefinitely long variable 
names, compile-time expression 
evaluation, conditional compila- 
tion, and time and date stamp- 
ing of source programs. For the 
text formatter user, macroP 
adds conditional nested inclu- 
sion of text files and automatic 
numbering of section headings. 
macroP is a general-purpose 
macroprocessor, styled after 
those available until now only 
on mainframe and minicomput- 
er systems. 

When released: May 1982 
Price: $135.00, postpaid within 
the U.S. 

What is included with price: 
One 8’’ SD diskette, manual, 
and sample macro files for pro- 
grammers and users of Text- 
writer. 

Where to purchase it: Pluto Re- 
search Group, P.O. Box 50444, 
Palo Alto, CA 94303-0444. 
(415) 323-5654 


Program Name: Cobol Compil- 
er (ANSI 74) 

Intel 8086/8088 hard disk + 
8” floppy 

Minimum Memory Size: 96K 
Language: 8086 machine lan- 
guage 

Description: Cobol compiler 
ANSI 74 Standard (low inter- 
mediate). 

Produces real executable 
8086 machine code which is 
runtime and memory efficient. 
Detailed error handling (over 
500 messages). Requires Digi- 
tal Research CP/M-86 operat- 
ing system. 

When released: May 1982 
Price: $1400 
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Software Directory continued . 


What is included with price: 
Manual 

Where to purchase it: mbp 
Software and Systems Technol- 
ogy, Inc., 7700 Edgewater 
Drive, Ste 626, Oakland, CA 
94621. (415) 632-1555 


Program Name: dBgen 
Hardware System: CP/M, Z80, 
8080 system 

Minimum Memory Size: 56K 
Language: machine code 
Description: dBgen translates 
screen and menu layouts direct- 
ly into dBASE II code so users 
can go from concept to running 
program in minutes. A format- 
ted database (.DBF file) is 
created automatically and a re- 
port describing its structure 
printed. Variables are defined 
by enclosing their names in 
braces where they are to ap- 
pear on the screen when the 


program is executed. dBgen 
produces a set of DO files that 
can be modified, included in 
other programs or run un- 
changed. The menu drive pro- 
gram can also be used to 
format reports. 

When released: April 1982 
Price: $95.00 

What is included with price: 
Program with Documentation 
Where to purchase it: Active 
Computer Enterprises, 1953 E. 
Apache Blvd., Tempe, AR 
85281. (602) 968-3350 


Program Name: BASIC/Z 
Compiler 

Any 8080/Z80 CP/M (rev. 
#2.x) system 

Minimum Memory Size: 48K 
recommended 

Language: Object Code 
Description: BASIC/Z is an in- 


teractive compiler. It supports 
cursor addressing (CRT and 
printer), reverse video, blinking 
fields, erase to end-line and 
end-screen, clear screen, and 
more. Screen-oriented editing 
at runtime includes non-de- 
structive cursor movement, 
character deletion, insert/ 
change modes, and dynamic 
character limitation. Edit con- 
trol codes are user-definable. 

All floating-point operations 
are performed in decimal 
(BCD), avoiding conversion er- 
rors common to binary systems. 
Additionally, the accuracy of 
computation and storage may 
be program-defined to any lev- 
el, with up to 18 digits of preci- 
sion. Arrays may be dimen- 
sioned dynamically (by an ex- 
pression), and even erased to 
reclaim memory space. 

In addition to alphanumeric 


EXPAND YOUR CP/M OPERATING SYSTEM WITH 
SCP/80 
SCP/80 IS AN ENHANCEMENT 


OF THE CP/M 2.2 OPERATING SYSTEM 
BUILT IN FEATURES INCLUDE 


@ WORKS WITH MOST ANY TERMINAL © CP/M FILE COMPATIBLE 

@ EASY INSTALLATION @ BUILT IN CP/M “HELP” AIDS 
@ OVER 50 COMMANDS AND AIDS © OPTIONAL BELL WITH PROMPT 
@ DISPLAYS CURRENT MEMORY MAP @ BUILT IN DIS-ASSEMBLER 

@ HEX MATH CALCULATOR @ LOG TERMINAL TO A FILE 

@ DISPLAY MAP OF INPUT PORTS @ PRINT NOTES ON PRINTER 

@ MEMORY BLOCK MOVE @ MEMORY BLOCK COMPARE 

@ MEMORY BLOCK SEARCH ASCII @ MEMORY BLOCK SEARCH HEX 
@ MEMORY TEST @ MEMORY FILL WITH CONSTANT 
@ MEMORY ENTER ASCII @ MEMORY ENTER HEX 

@ MODIFY MEMORY @ DUMP DISK TO CRT HEX/ASCII 
@ SAVE FILE OF ANY MEMORY BLOCK @ LOAD FILE ANY WHERE IN TPA 
@ PRINT ASCII FILES W/TITLE @ TYPE ASCII FILES 

© DIR W/ORDERED LIST W/PARAMETERS @ CONVERT ASCII/HEX ON CRT 
@ CRT TEST PATTERN @ PRINTER TEST PATTERN 

@ CONVERT ABSOLUTE TO HEX FILE @ ERASE CRT SCREEN 

@ CONVERT HEX TO ABSOLUTE FILE @ CHANGE DISK 

@ USER COMMANDS MAY BE ADDED @ AUTO COMMAND 

@ PIP MENU 


COMMINCAONS 
SOYINANE $29 


DATA COMMUNICATIONS EVERYONE CAN AFFORD! 


INTERNATIONAL SOFTWARE ALLIANCE IS PROVIDING THIS PROMO- 
TIONAL OFFER TO END USERS BECAUSE WE BELIEVE THAT WHEN YOU 
USE E-LYNC YOU WILL BE SO PLEASED WITH THE EASE OF OPERATION 
THAT YOU'LL WANT TO ORDER OUR FULL FEATURED VERSION LYNC. 
E-LYNC WORKS JUST LIKE LYNC BUT DOESN'T HAVE ALL THE ADVANCED 
FEATURES OF LYNC. 


E-LYNC is a powerful data communications program that can be used to transfer data or 
program files between computers or to connect to time-sharing systems. E-LYNC allows 
you to transfer any and all types of files from CP/M to CP/M, CP/M to IBM PC DOS, 
or IBM PC DOS to IBM PC DOS. E-LYNC will support baud rates up to 9600 on a cable 
hook up. 


E-LYNC| MODE: Can transfer data or program files between CP/M systems, between PC 
DOS systems, and between an IBM PC and a CP/M system running E-LYNC or LYNC. 
When transferring files E-LYNC uses field proven error detection and re-try protocol, 
sure to get your files across noisy phone lines or temporary disconnections. When in 
LYNC| mode, both computer operators are in an immediate message mode and may 
type messages back and forth 


E-TERMJINAL MODE: Terminal mode will allow you to connect your computer with 
time-sharing systems such as Source, Micronet, or CompuServe 


LYNC The full featured version is offered at $125 and includes all of the features of 
E-LYNC plus: 


LYNC} MODE: Fetch files from another computer system; Use wild card names in send 
and fetch routines; View local and remote directories; Log onto local and remote drives. 


TERMJINAL MODE: The terminal mode in the full featured version of LYNC will allow 
you to buffer incoming data to the capacity of your memory and write the data to disk. 
Additional features of the terminal mode include: Send files to time share systems: 
Receive files from time share systems; Send files to other computers not running LYNC; 
Load files from other computers not running LYNC; Choice of full duplex-or half duplex 
mode; plus other features. 


@ NO TPA LOSS FOR APPLICATION USE ties ENSING: E-LYNC is license ed 0 wa Per eee basis tye n ‘eon = ELYNC to communicate with Pen ted to 
@ NO CBIOS CHANGES ARE REQUIRED @ CLEAR TPA FEATURE kommun with V2 GP M system you will also peed the CP M version of E-LYNG [SA has both version of BLYNC 
@ MOST COMMANDS CAN BE BATCHED @ BATCH (SUBMIT) OPERATION TERMS: Money Order. Check. C.O.D. MC or VISA. lest Class Postage included. UPS Blue add $2. COLD. add $3 

DISK FORMATS: &” Standard, 5” Vector Graphic. IBM PC DOS. TRS 80 Mod Il wGPM, North Star. Cromenco. 


Superbrain 3,0 DOS or later 


SCP/80 IS SUPPLIED ON 8” CP/M DISK WITH MANUAL 


A.B. HUTCHISON ENGINEERING 
1354 SW 12th AVENUE 
POMPANO BEACH, FL 33060 


ALLOW 20 DAYS 
PRICE ONLY $100.00 


CP/M is TM OF DIGITAL RESEARCH 


(305) 943-1530 
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PHONE ORDER DESK: (805) 966-3077 10am to 2pm PST Monday-Friday. 
ISA IS NOW ACCEPTING PROGRAMS FROM SOFTWARE AUTHORS 


hs, INTERNATIONAL SOFTWARE ALLIANCE 


1835 MISSION RIDGE 
SANTA BARBARA, CA 93103 


E-LYNG. LYNG are trademarks of Midnight Software CIP M is a trademark oof Dagital Resear h HWM PC DOS bs a trademark of 1M 
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labels, BASIC/Z supports re- 
cursive, multiline user-defined 
functions. The self-contained 
SORT verb will sort 2000 ele- 
ment in 2 seconds. Multitiered 
error-trapping handles BDOS 
errors. It includes a full func- 
tion program editor, which tests 
syntax as you type! An exten- 
sive debugging facility provides 
line trace, error line retention, 
and the unique ability to “‘sin- 
gle-step” a compiled program, 
with continuous display of se- 
lected variables. 

When released: 1982 

Price: Single-site use license, 


compiler, RUN/Z runtime 
module, TR/III translator utili- 
ty, INSTALL menu-driven in- 
stallation package, documenta- 
tion. 

Where to purchase it: System/z, 
Inc., P.O. Box 11, Richton 
Park, IL 60471. (312) 481- 
8085 


Program Name: BACKUP 
Hardware System: 8080, 8085, 
or Z80 CPU running CP/M 
Minimum Memory Size: 48K 
Language: N/A 

Description: BACKUP is a 


his/her hard disk utilizing inex- 
pensive floppy disks. The abili- 
ty to back up files that are 
larger than the capacity of the 
floppy disk makes BACKUP 
unique to the CP/M 2.x user. 
Included with BACKUP is a 
poweful File Directory program 
and a utility to test your exist- 
ing system to see if BACKUP 
will operate properly. 

When released: April 1, 1982 
Price: $95.00 

What is included with price: 8’ 
Floppy disk and manual 

Where to purchase it: TRI-L 
DATA SYSTEMS, 900 Fort 


$345.00 powerful utility program that Street, Suite 50 Honolulu, Ha- 
What is included: BASIC/Z enables the user to back up waii 96813. (808) 524-3780 


x Twenty-five Hours-A-Day 
ue « Time Manager gTIME-2001 $40 4G 
a4 gTIME-2101 $80 ie 


e Time Accounting/Reports 


QD £ RQ» 
STARTIJOB 
BASIC MADE PRETTY & 


Q.T. CALENDAR CLOCK 
If you have ever experienced for Apple or S-IOO Computers 


difficulty reading your BASIC Project Planning and Control 


program, you need our software Only %150.00 3321; © PERT/CPM Utility ePERT-3001 sao % 
package named PRETTY, SPE * Project Scheduling/ 
why PRETTY? 22:00:00 ie eee ss gRISK-400] $160 
ay he ¢ Activity Selection Via 
Because when you need to find STARTJOB VERS 1.1 Be Multiple Objectives gPRIORITY.5001 $160 
. m4 i e Project Report Generator t $4 
or identify variables, or leita a cl Bs a pig na nadics 
determine limits of FOR loops, a AYE System Interface gTIME-2201 so 36S 
or perform debugging of your Receive B: = roe 
BASIC program, PRETTY is just Transmit C:Test.txt art People Interface Assistants ¢ 
F - : 
beautifult Crun2 Update XK 5 People Networking v3" 
$ Submit Payroll ¥ Assistant gPAN.1001 $40 % 
Onl 0.00 : Personal Address Disk/ 
Only $30.00 Starting Delayed Jobs + Mail Labels ore gPAD-1001 $40 ¥ 
ns pen 
Includes both disk and manual et 
For 8" CP/M and Osborne formats tet ams Inc. oie GALACTIC 
Software Publishers 
Send check or money order to: anes pos keeauonsoas ae) 2490 Channing Way, #503 % 
Berkeley, CA 94704, USA 


HIS PROGRAMS ar 
2439 Overlook Circle 
Lawrence, Ks. 66044 
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 EPROMS 37 CP/M 


EPROM PROGRAMMING SYSTEM RUNS UNDER CP/M 


(415) 845-5396 


PRECISE 


CP/M compatible text editor 
Compare some of PRECISE's features: 
e User cont gurabre for most cursor addressable CRT’s 


SOFTWARE & NEWS 


FOR MICROPOLIS S-100, INCL. VECTOR GRAPHIC, 
EXIDY, CDS, COMPAL, BLACKHAWK, IMSAI, and 
the 16-sector TANDON & TEAC. 


MDOS & CPM Languages, Util’s, Applc’s, Games 
Price List - Free Catalog - $2.00 


BASIC/S & Z Compilers ............... $345 
Accounting S/W - A/R, A/P, G/L. INV, 

PAY, Order Entty) oscc nec c..coe ... $140-$350 
Data Base Management ............... $50-$450 
Mail System : $50 


© Versions for memory mapped video boards available 
* Keys and commands are easily redefined 
e weer and versatility of editors costing twice as much 
@ Written for use by experienced and novice users 
e Used in the field for over a year 
$35.00 
Berkeley Cottage Software 

1434 Parker Street 

Berkeley, CA, 94702 
eet woe epeciy CRT or MEMORY. OEEeD 
S| ) ines, Wi 5 ard memo address). 
Stable Ye", single density'CP/M disk. 24 


uXFER 


micro-transfer: 
An intelligent CP/M < == > UNIX communication 
program 


~PROGRAM EPROM(S) FROM DISK FILE -READ EPROM INTO RAM 
-PROGRAM EPROM FROM RAM ~DISPLAY/MODIFY RAM 
“READ DISK FILE INTO RAM -VERIFY EPROM IS ERASED 
~COMPARE EPROM W/RAM -COPY EPROM 


FEATURES 
“STAND ALONE SINGLE BOARD (6X7.5) PROGRAMS 2708 ,2758, 
2716, 2732, 2732A AND 2764 EPROMS, 
“NO PERSONALITY MODULES OR DIP SWITCHES TO CHANGE ~ 
100% ELECTRONIC SWITCHING OF EPROM TYPES. 
-INTERFACES THROUGH ONE 8 BIT INPUT PORT AND ONE 8 BIT 
OUTPUT PORT. 16 WIRES - NO SPECIAL HANDSHAKE LINES. 
ALL SOFTWARE IS PROVIDED ~ YOU WRITE NOTHING! 
-SIMPLE CONFIGURATION TO YOUR COMPUTER USING DDT. 
DESIGNED WITH LOW COST EASY TO GET PARTS. 
OPERATES WITH ANY COMPUTER THAT RUNS CP/M 
AND HAS A PARALLEL PORT. 
~COMPLETE ON BOARD SUPPLY - NO BACKPLANE CONNECTIONS, 
“SUPPLIED WITH 25 PAGE USER/ASSEMBLY MANUAL. 


Assembly Language Sorts - called from Mp 
Basic or Basic-80 


MDOS to CP/M, CP/M to MDOS translator and 
disk utilities 

Word Processors 

Micropolis/Vector Graphic Users Group 
Monthly newsletter, S/W discounts. . 
Library disks (MDOS & CP/M) 


Products postpaid to N. Amer. Add $7 elsewhere. All 
funds in U.S. $. VISA & MC accepted. Deduct 5% for 
cash 


DAMAN (205) 881-1697 


Ste. 203, 604 Springwood Cr., Huntsville, AL 35803 


© Send and receive ascii files without size limitations 
© Save money and time by using UNIX efficiently 
Installation also possible for systems other than UNIX 
* Works for dialing up your favorite bulletin board too 
$49.95 
Available for 8” SD, Advantage & Horizon DD. Inquire 
about versions for Osborne-1 and Kaycomp II. 
Berzurk Systems 
1434 Parker Street 
Berkeley California, $4702 

Manuals of either product available Feearateyy for $6.00 


each (refundable with purchase). Ad 00 shipping and 
Randiing. 6 Se tax in California. gan 


Now you can afford to bulld a professional EPROM programmer. 
BARE P.C. BOARD WITH COMPLETE DOCUMENTATION 
AND SOFTWARE ON AN & SINGLE DENSITY DISKETTE-$75.00 


WRITE FOR MORE INFORMATION DEALER INQUIRIES INVITED 


TO ORDER SEND CHECK OR MONEY ORDER TO: 


Add $3.00 for C,0.0. + AndraTech 
Ohio res add 5.5% tax 


1235 VILLAGE GLEN 
* CP/M Is a trademark of Digital Research | BATAVIA, OHIO 45103 
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BASIC Bt" 


with documentation 


$325.00 


Delphic Systems 
2260 Compton Avenue 
St. Louis, MO 63104 
314/773-6753 
Coming Next 
INVENTORY B+™ 


VISA MasterCard 
MICRO B+TM is a Trademark of FairCom 
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New Products 


8086/87 S-100 CPU 
Board 

An 8086/8087 microprocessor 
board providing 16-bit capabili- 
ty with provi- ee 
sions for ad- 
ding a mathe- 
matics co-pro- 
cessor and 
operating sys- 
tem firmware 
has been in- 
troduced by CompuPro. 

Compatible with IEEE 696/ 
S-100 standards, CPU 86/87 is 
available in either 8- or 10- 
MHz microprocessor versions. 
Accommodating 8- or 16-bit 
words, its on-board logic can 
read or write two bytes serially 
for 8-bit applications, or pass 
word-wide values for 16-bit op- 
eration. Users can mix 8- and 
16-bit devices in the same sys- 
tem. 

The board accepts Intel’s 
8087 math processor and 80130 
operating system firmware ICs. 
The 8087 offers a high-speed 
number crunching capability, 
while the firmware adds an 8- 


S-100 256K -Kilobyte 
RAM CARD 

Dual System’s new DMEM / 
256KP, Dynamic Memory 
Board provides 256 kilobytes of 
memory on a single IEEE 
Standard 696/S-100 Bus Com- 
patible Board. Thus it makes 
available four times as much 
memory in the same area as 
previously available 64K-byte 
boards. 

The memory board can be 
addressed to provide either 8- 
or 16-bit memory transfers. 
Left and right 8-bit transfers 
can be juxtaposed using an on- 
board jumper. Access time is 
230 nanoseconds and cycle time 


level vectored interrupt control- 
ler, three interval timers, and a 
choice of silicon-based operat- 
ing systems: the iRMX-86 ker- 

—_ nel or CP/M- 
86. 

The 86/87 
CPU gener- 
ates a full 24- 
bit address for 
its 16-Mbyte 
memory, and 
a power-on-jump capability al- 
lows jumping to any 4k bound- 
ary in the lower 1-Mbyte ad- 
dress space. A clock-switching 
circuit permits slave processors 
to share a bus with the board, 
thereby eliminating bus con- 
flicts by running the slave and 
the master at different clock 
rates. 

The CPU 86/87 comes con- 
figured with microprocessor, a 
ROM.-less version of the 80130, 
and a socket for the 8087 math 
processor. Suggested retail 
price is $695 for the 8-MHz 
and $850 for the 10-MHz ver- 
sion. CompuPro, Oakland Air- 
port, CA 94614; 415-562-0638. 


is 580 nanoseconds, including 
transparent refresh. 
The board is organized in 


two independent 128-kilobyte 


regions; thus each region can 
be viewed as an independently- 
addressed portion of memory. 
Addressing of up to 16 Mbytes 
of memory is provided via ex- 
tended, 24-bit addressing. Ad- 
dress selection is by means of 
DIP switches which establish 
boundaries on each 128K re- 
gion in the address space. 
Parity is checked on every 
byte transfer. If any parity 
check is found to be invalid, 
the board supplies an error sig- 
nal in the form of a pulse or 
latched bus error. Two LED in- 
dicators are mounted on the 
board to indicate transfer activ- 
ity and a latched parity error. 
Dual Systems Control Corpora- 
tion, 720 Channing Way, 
Berkeley, California 94710, 
415/549-3854. 


RATFOR 


Rational Fortran 
Structured programming for FORTRAN. 
The best implementation of Ratfor 
available anywhere! Full Standard 
Ratfor, plus strings, conditional com- 
pilation, and more. Includes pretty 
printer for automatic indentation of 
source programs. Complete tutorial 
User’s Manual. Totally compatible with 
all Microsoft Fortrans (not included!). 

¢ TRS-80 Model I/II: $74.00 

¢ CP/M, IBM-PC (MS-DOS), or 
¢ TRS-80 Mod II: $139.00 


Aspen Software Co. } 


P.O. Box 339 Tijeras, NM 87059 
(505) 281-1634 


ft 
i wl. 


New products continued . . 


S-100 Time/Calendar 


Board 
A newly-developed Real Time 


Clock provides an S-100 com- 
puter with complete timing and 
calendar information including 
seconds, minutes, hours (12 or 
24 hour format), year, month, 
date and day of week data. The 
clock can be read upon com- 
mand or can be software/hard- 
ware set to interrupt the CPU 


ee Ciba Lay ve 
every hour, minute, second or 
1/1024th second. It utilizes a 
crystal-controlled LSI CMOS 
clock chip for high accuracy. 


%* Get the information you need from the user's 
point of view 


* Over 150 pages of members newsletter articles 


last year 

%* DOs and cp/m disk library for members 

* Solve problems 

* Get assistance 

Membership dues $20 

International North Star Users Association 
P.O. Box 2789 um, — Fairfield, CA 94533 


(1488 22S cee ase to s-100 renrace 


"Handles all IEEE-488 1975/78 functions 

"IEEE 696(S-100) compatible 

*MBASIC subroutines supplied; no BIOS 
mods required 

Spee ports (8255A-5) 
eesnel quality; burned in and tested 


5 
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DSW DIGITAL 


1524 REDWOOD DRIVE 
LOS ALTOS, CA 


An on-board, lithium battery 
provides power back-up for up 
to 6000 hours of computer 
power failure. BASIC and 
assembly language programs to 
set and read the clock, are 
provided. Price: $179.00. 


1200-bps Modem 

The Hayes Stack® Smartmod- 
em 1200 is a Bell 212A/103 
compatible modem that lets 
RS-232C compatible computers 
or terminals communicate over 
telephone lines at 1200 bps or 
0-300 bps. 

The Smartmodem 1200 con- 
nects directly to the telephone 
line and an RS-232C port, and 
is approved by the FCC for di- 
rect connection to any U.S. 
telephone system for both pulse 
and Touch-Tone* dialing. Both 


FEEL TRAPPED 
BETWEEN 
CAPACITY AND 
COST ? 


Sibileonndl 
Wee a 
Ral 


Processor Interface introduces the Cartridge Disk Con- 
troller for the S- 100 bus. Configurable for 12 sector 
2315 and 5440 type disk drives (1.25- 10 Mbytes per 
drive) Complete with CPM* CBIOS, disk formatter 
diagnostics and technical manual low cost $495.00 
Manual only $25.00 

The performance Mastercharge and 
you need at Visa accepted. 

a cost you can 
afford SBM 2 Sapemar 3 Degta Resear * 
Processor Interfaces, Inc. P.O. Box 154A Elm Grove, WI 53122 

414 - 785-1245 
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(Dealer inquiries invited] 


94022 1415) 966-1460 


types of dialing may be com- 
bined in a single command with 
pulse used, for example, to ac- 
cess a PBX board and Touch- 
Tone used to dial an outside 
number. 

The Smartmodem 1200 is an 
intelligent system that executes 
user commands and responds 
with either decimal digit or En- 
glish word result codes. The 
modem can be controlled by 
any programming language and 
it includes all circuitry for 
auto-dial and auto-answer. 


New products continued . 


Users hear the progress of a 
call via an audio monitor and 
are alerted to wrong numbers 
and busy signals. A repeat 
command causes automatic re- 
dialing of a number. Indicator 
lights on the modem’s front 
panel allow a visual check of its 
operational status. Switch and 
program-controlled options in- 
clude full or half duplex, enable 
auto-answer, and result code 
type. Commands allow selec- 
tion and change of additional 
parameters such as dialing 


speed, escape code character, 
and number of rings before the 
modem answers a call. 


Price: $699; Hayes Micro- 
computer Products, Inc., 5835 
Peachtree Corners East, Nor- 
cross, GA 30092, (404) 449- 
8791. 


Bower-Stewart & ASSOCIATES sorware Ano HARDWARE DESIGN 


$GOLD DISK$ CP/M* Compatible Z-80 Software 


Available for all 8-5" SS-SD IBM format systems including TRS-80®, Northstar, SD Systems. Also available on 5” double density Superbrain® 


Un-can your canned software! 


Z-80 Disassembler Fee! couped up with your 
canned software? Our Z-80 Disassembler 
recreates assembly language source files from 
absolute code enabling users to easily tailor 
programs to meet their specific needs. The 
Preconditioner works with the Disassembler to 
decode ASCIl. 


Credit cards’ Immediate service. free 24 hr phone - we will 
credit invoice Checks. MO 's Ten workday hold CA res Add tax 


Great looking letters & reports! 


E-Z Text A unique word processor organized 
around user-created text files, embellished 
with simple contro! commands, which supports 
such ‘BIG GUYS’ features as Automatic Foot- 
noting, Table Spacing, Heading, Paging, Left 
& Right Margins, Proportional Spacing and 
MORE, at a ‘LITTLE GUYS’ price tag. 


State system & controller. Allow time for surface mail 
Trademarks: Digital Research. Radio Shack. Intertec 


$75. 


ppd 


$175. 


ppd 


RED 


MasterCard 


a oe 


POST OFFICE BOX 1389 HAWTHORNE, CALIFORNIA 90250 (213)532-1237 


CP/M*<IBM 
CP/M<-DEC 
Compatibility with 


REFORMAI IER™ 


Exchange data files with most IBM and 
DEC equipment through REFORMATTER disk 
utilities. With REFORMATTER, you can read 
and write IBM 3740 and DEC RT-11 formatted 
diskettes on your CP/M system. Programs fea- 
ture bi-directional data transfer and full direc- 
tory manipulation. ASCII/EBCDIC conversion 
provided with CP/M<>IBM. 

Each program $249.00 from stock. Specify 
CP/M<>IBM or CP/M<>DEC when ordering. 

Program Data Sheets and Application 
Guide available from MicroTech Exports, Inc., 
467 Hamilton Ave., Suite 2, Palo Alto, CA 
94301 O Tel: 415/324-9114 C0) TWX: 910- 
370-7457 MUH-ALTOS C) Dealer & OEM 
discounts available Zz @® 


CP/M® is a registered trademark of Digital Research 
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XEROX 820° USERS 


Now you can have true APL terminal emulation on 
your 820, including standard APL characters and 
overstrikes, without sacrificing any machine features. 


APLTERM 1° 


combines a simple hardware modification with a 
terminal program designed from the ground up to 
work with APL timesharing systems. The original 
820 character set is not affected in any way, and 
transfer from one character set to another is done 
from software. 


APLTERM 1 supports baud rates from 50-19200, half 
or full duplex, user-configurable serial data word 
format, and all overstrike characters used in Sharp 
APL and Xerox/Honeywell CP5 and CP6 APL. 


The terminal software runs under CP/M™ 2.2 and is 
distributed on 8” SD diskette. 820™ 5," disk format 
available on special order. 


FULL PACKAGE $200 DOCUMENTATION $25 
Add $3 postage/handling 


Starside Engineering 
PO Box 18306 
Rochester NY 14618 

(716) 461-1027 = 


Quality software for CP/M™ and the IBM™ PC. 
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NORTH STAR 
BASIC USERS 


FOR “GOTO” “GOSUB” OR 
“LIST” USE A NAME 
NOT ANUMBER 


MAKE PROGRAMMING 
EASIER 
MAKE PROGRAMS 
READABLE 
NOT ALTERED BY 
RENUMBERING 
NAMES OF ANY LENGTH 


$60 LINENAME 
P.O. BOX 263, 
TORONTO. N.S.W. 2283 
AUSTRALIA 
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LEO ELECTRONICS, INC. 
8921 S. Sepulveda #208 

Los Angeles, CA 90045 

(213) 641-3101 (800) 421-2418 


WHY PAY MORE? SAVE MONEY! 
LOWEST PRICES ON PARTS! 


EPROMS REGULATORS 
2708 7805 : 
2716 7812 
2716-1(350ns) 7815 
TMS 2716 7905 
2732 7912 
2532 7915 


RAMS 
4116(200ns) 8/ 13.00 MICROPROCESSORS 


2Z-80A-CPU 5.50 
4116(150ns) 8/16.00 
2114(200ns) 8/18,00 8080A 3.00 
4164(200ns) 8/54.00 8085A 7.00 
4164(150ns) _8/56.00 


TERMS: Check, Visa, Mastercard. Call for C.0.D. 
U.S. Funds only. California Residents add 6.5% Tax. 
SHIPPING: Add $2.00 for Ground $5.00 for Air 
ALL MAJOR MANUFACTURERS 
ALL PARTS 100% GUARANTEED 


WORD PROCESSING SOFTWARE 
$45. 


A unique modular set of programs de- 
signed to make your word processing 
chores faster and easier. 


Programs Include: 
*Text formatter printing utility 
“File Transliteration 
“Word and Character Counting 
*File Encryption/Decryption, and more 
*9 Programs in All. 


For CP/M 2.2 8 inch single density disk 
systems, 48Kram or more. Users manual 
only $3.00 (Applicable towards purchase). 


Send Check or Money Order to: 
L.A. SOFTWARE 
6708 Melrose 
Los Angeles, CA. 90038 


California Residents Add Sales Tax. 


“DISC DOUBLER PROGRAM” 
“DOUBLE THE STORAGE CAPACITY 
ON YOUR SS/SD OR SS/DD 5% INCH 

DISKETTES.” 


NOW YOU CAN INCREASE THE SIZE OF 


USEABLE SPACE ON YOUR SS/SD OR 
SS/DD 5% INCH DISKETTES. 

ALL YOU PAY IS A ONE TIME FEE OF $12.95. 
USE THIS PROGRAM OVER AND OVER, AS OF- 
TEN AS YOU LIKE, NO EXTRA FEES. THIS PRO- 
GRAM WILL WORK WITH ALMOST ALL SS/SD 


OR SS/DD DISKETTES. HURRY, SEND $12.95 
U.S., CASH, CHECK, OR MONEY ORDER. VISA 
AND MASTERCARD BUYERS TELEPHONE TOLL 
FREE. 


DISK DOUBLER PROGRAM 
CP-M COMPANY 
P.O. Box 1045 DEPT. CCO 
WOODLAND HILLS, CALIFORNIA 91365 
Nationwide 800-428-7825 Ext. 43 
CA. Residents Only 800-428-7824 Ext. 43 


California residents add 6% sales tax, Los Angeles residents 
add 6.5% sales tax. Please include $1 postage and handling. 
All orders shipped within 10 days. Disk doubler program 
copyright 1982 by computer peripheral-material company. 


Microsystems Mart 


Please Direct Inquiries to: Jim Beloff; (212) 725-4216, 


NORTH STAR Advantage Users: 
NORTH STAR Horizon Users: 


New software for Advantage CPM Users KEY 
MASTER for NORTH STAR Computers — Pro- 
gram any key on your Advantage keyboard! Ideal 
for word processors or spread sheets. Use the 
function and cursor—movement keys. KEY MAS- 
TER is menu-driven and user-friendly. The Hori- 
zon version will be available soon. Introductory 
price KEY MASTER: $49.95. 


For NORTH STAR DOS 5.2 or GDOS USERS: 
Your system may be used as a super intelligent 
terminal! Communications programs running 
under DOS 5.2DQ or GDOS allow for serial com- 
munication via the RS232 port. Incoming Data 
may be saved. Programs may be downloaded to 
the basic interpreter. Text files can be edited, 
printed & exchanged with other computers. 
Source listings available as an option. INTRO- 
DUCTORY PRICE: $29.95 (For either version). 


MASTERCARD/VISA ACCEPTED 

To obtain information or to order: 
THE COMPUTER SHOP 
283 Medford Ave., 
Patchogue, N.Y. 11772 
Telephone: (516) 758-6558 


SAVE 90% 


YES you can save up to 90% on a 
computer system of your own. 


$150.00 buys a 4MHz Z80A with 
64KB & a real Front Panel 


$200.00 buys a Full Function 
24x80 CRT with Keyboard 


You can have your own computer and 
be running Fortran, Basic, Pascal, etc. 
If you get our 


FREE BROCHURE 
TODAY 


DIGATEK CORPORATION 
Suite 40 

2723 West Butler Drive 
Phoenix AZ 85021 


ROLL-YOUR-OWN TECHNOLOGY 
AND SAVE A BUNDLE 


NOW AVAILABLE, CRT STAND 

FOR XEROX 820-822-860 COMPUTERS 
FINALLY. A GOOD LOOKING QUALITY STAND ENABLING 
XEROX 820-822-860 USERS TO ELEVATE AND PIVOT THE CRT 
WHILE IMPROVING AIR CIRCULATION 
UNIQUE DELTA DESIGN, GIVES MAXIMUM SUPPORT USING 
LESS DESK SPACE THAN THE CRT ITSELF. STRONG ENOUGH 
TO SUPPORT 8” DISC DRIVES AND CRT, PIVOTS 180° 
THIS STAND MAY BE USED WITH ANY CRT DEVICE AND WILL 
ELEVATE THE CRT 3%", OPTIONAL ADJUSTABLE “FEET” AL- 
LOWS INCREASED HEIGHT IF REQUIRED. 

STEEL W/WOOD GRAIN VINYL FINISH $33.95 

XEROX “PUTTY” COLOR FINISH $35.95 
ALUMINUM W/XEROX “PUTTY” COLOR FINISH $42.95 
SEND CASH, CHECK OR MONEY ORDER. VISA AND MASTER: 
CARD BUYERS TELEPHONE TOLL FREE 
COMPUTER PERIPHERALS— 
MATERIALS COMPANY 
P.O. BOX 1045 DEPT MSO 
WOODLAND HILLS, CALIFORNIA 91365 
NATIONWIDE 800-428-7825 EXT. 43 
CA. RESIDENTS ONLY 
800-428-7824 EXT. 43 


DEALERS AND DISTRIBUTOR 
INQUIRIES WELCOME 


California Residents add 6% sales tax. Los Angeles residents add 
6.5% sales tax. Can be shipped UPS, PARCEL POST. Weight 3 ibs 
In the Continental U.S. add $2.50 postage and handling. $5 
elsewhere. Xerox 820-822-860 Trademark and product of Xerox 
Corp. Patent pending CP-M Company 1982 


LOOK TO THE FUTURE... 


EPROM - 32 


The only EPROM programmer you need! 

+ IEEE-696 (S-100) EPROM programmer for single supply 
({+5V) EPROMs. 

+ Programs current 1K through 16K (byte) EPROMs plus future 
32K EPROMs. 

+ EPROM can be verified through a port or located in memory 
space for verification and use. 

+ Personality Modules adapt board to different EPROM types: 
PM-1—2508, 2758 PM-3—2732, 2732A PM-6—68764 

2516, 2716 PM-4—2564 PM-7 —2528 

PM-2—2532 PM-5—2764 PM-8—27128 

+ Single zero-insertion-pressure socket accommodates both 24- 
pin and 28-pin EPROM packages. 

+ On-board DC-to-DC converter with adjustable regulator for pro- 
gramming voltage. 

+ Double-sided PC board with solder masks, silkscreen and 
ted contact fingers. 

+ 8080/Z80 control software includes commands for program- 
ming, verification, disk 1/0 and editing 

+ Comprehensive user's manual contains source listing of con- 
trol software 


aan. ome 


(assembled & tested) 


Corporation Price includes EPROM-32, documen- 
PO. Box 17577 _ ‘ation and two Personality Modules 
Memphis. TN 38117 (specify). Additional Modules — $7.95. 
empnis, Control software on 8 inch single densi- 
(901)-755-0619 — ty CP/M-compatible diskette $9.95 


MasterCard & Visa TN residents add 6% sales tax. 


64K Dynamic RAM ICs 


200 ns 150 ns 
Quantity 64K Ram 64K Ram 


o- 49 @ $6.99 @ $7.99 

50 - 149 @ $6.75 @ $7.75 

150 + @ $6.50 @ $7.50 

HM6116P-3 150 ns 2KX8 static @ 5.50 
2732 450 ns 4KX8 EPROM @ 5.00 
IN STOCK: PRIME 
OK! MSM3764-20RS 
FUJITSU MB 8264-15 
OR CAN GET ANY 
JAPANESE BRAND OR FLAVOR 
Send Cash, M.O., COD or VISA, M/C To: 
MICRO PROCESSORS UNLIMITED 
24,000 SOUTH PEORIA AVENUE 
BEGGS, OKLAHOMA 74421 
918-267-4796 

IMPORTANT: Call for current prices, other 
brands, other speeds, or volume pricing. | WANT 
your business, call any hour (almost). Prices 
shown include cash discount. Shipping & insur- 
ance extra. These prices are subject to change! 


NEW 


COMPUTER MART 
FORMAT 
a X Pld 


PICTURE YOUR AD HERE! 


NEXT CLOSING DATE: 
SEPTEMBER 20 
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AT LAST 


A new book dealing with assembly language for CP/ 
M system users entitled: 


COMPARE 


COMPILERS 
New C/80 2.0 gives you all three: 
features, performance and price. 


Introduction to CP/M Assembly Language 


Step-by-step instructions on how to construct simple 
programs operating in CP/M that work! The full size 


“Compiled Loaded I 

(82 by 11) perfect-bound 180 pages present the reader ri Size (with oui Execute 
with various ways of inputting and outputting data to a Compiler Gye) piel aie, poe) Eee 
terminal, as well as sending data to a line printer. Since = 

ui 1 
the |/O methods used are based on CP/M function con- ees poe yh = cid s Py 
structions, the programs are meant to be interchange- BDS C 1.44! 305 3696 54 44.0 $150 
able with ‘‘standard’’ CP/M systems. The reader can ae ba 5 300 2500 92 26.0 $200 
: . “ Oe F : = iny-c 2 Compiler (4) (4) 96 930 $250 
immediately ‘‘talk’’ with his computer in assembly lan Whitesmith C2 290 7384 242 15.6 $750 


SMaOe: Performance Comparison Using Benchmark Program 
Published in BYTE, September 1981 


‘Our results on 4 MHz Zenith 289 with 8” disks 
Results reprinted by permission from September 1981 BYTE; ©)BYTE Publications Inc 


Only minimal prior exposure to assembly language 


is required. 


From information sheet provided by manufacturer 
Figures not available 


The new C/80 compiler, Version 2.0, supports all C language features 
except float, long, typedef, bit fields, and arguments to macros. 


Two useful programs are constructed to demonstrate 
CP/M disk techniques. : 
—single-drive copy program (sequential filing) 
—data base program (random access filing) C/80 2.0is available in disk formats for Heath/Zenith(HDOS & CP/M”), 
Osborne 1* and 8” standard CP/M systems. Price is $49.95; add $3 


Also included is a simple game program demonstrating shipping ($2 for 5” disks); in CA add tax. Phone orders welcome. 


some basic game programming techniques and a short 
section on program troubleshooting. 


To Order: send $15.95 (+ p. &h.) to: 
Executive Computer 

Dept. D, P.O. Box 222178 

Carmel, CA 93922 


*CP/M is a registered trademark of Digital Research. Osborne 1 is a registered trademark of 
Osborne Computer Company 


ny 


The Software Toolwérks 


14478 Glorietta Drive 


(408) 375-DATA ,. % ema 
\ Sherman Oaks, CA 91423 VISA 
(Add $1.25 for postage and handling) (213) 986-4885 EE 


Call or write for our catalog of over 20 software products. 
Dealer inquiries invited. 
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(Calif. residents add 6% sales tax) 
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TEAM PL 


Master/Slaves... 


While others have been talking about dual 
processing, we’ve been delivering 8/16 bit dual 
processors since June of 1980. 

There is no substitute for experience. For 
the real.thing in 8/16 bit operation - hardware and 
software, available now - choose the company 
which invented the first dual processor for 
micros. 


Genre 
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